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1 S$ 
8 Calculate class record lengths 
6 QUALS = Move Class Qualifier Values 
4 lect Data into Buffer 
4 CT = Collect & Transform Data 
4 - Perform Data Transformations 
1 -MODES = Combine Modes for all CPUs 
7 QUAD_LT_QUAD = Compare Two Quadwords 
: QUAD_EQ_0 = Compare Quadword = 0 
MPCHECK™= Check systen for MP capability 
6 WRITE _PROC_RECORDS = Write PROCESSES class records 
3 CVT_TO_ DELTA = Convert Seconds to Delta 
COMPUTE _BOOTTIME = Compute System Time of Boot 
8 C NET_INFO = Get Cluster & Net Info 
9 TEM = Advance to next dis Lay item for homog 
o ION = Collect into CURRENT Buffer 
O.STATS = Fill the STATS Buff 


1 
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9 UPD _PC_Al 

7 DISPLAY_IN 

6 SUMMARY _ INI 

: FILL_DISP_BUFF = Fill Display 
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FOB _SyS_TOP = Process TOPs for SYSTEM class 
FILC_TOP = Fill Display Buffer for TOP PROCESSES 
UMMARY_TOP = Set up Suamery for T 
DISPLAY_PROCS = Put PROCESSES pee 
ISPLAY_TOP = Put PROCESSES/TOP D 
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R = Log MONITOR Error 
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gnal MONITOR Error 

ERR = Link MONITOR Error 

- Free Virtual Memory 

lass display name subroutine 
AM - SCS Class display name subroutine 
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FACILITY: VAX/VMS MONITOR Utility 
ABSTRACT: 


This module is a collection of routines which are called by 
the MONMAIN, REQUEST, and COLLEVT PL/I routines to do 
various tasks, including data collection, terminal 1/0 
(through the use of the Screen Package) and maintenance 

of statistics for screen displays. 


ENVIRONMENT: 
Unprivileged user mode 
except for certain collection routines which 
run in EXEC or KERNEL mode to access system 
data bases. 

AUTHOR: Thomas L. Cafarella, April, 1981 


MODIFIED BY: 


v03-027 TLC1090 Thomas L. Cafarella 02-Aug-1984 
Correct ACCVIOs in SYSTEM and PROCESSES classes. 

v03-026 TLC1087 Thomas L. Cafarella 25-Jul-1984 
Default to /ALL when summarizing. 

v03-025 TLC1086 Thomas L. Cafarella 24-Jul-1984 


Make top summary work for SYSTEM class. 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


ITY FOR THE USE OR RELIABILITY OF ITS 
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38 : v03-024 TLC1085 homas b. Cafarella 22-Jul-1984 14:00 
Ps ; Calculate scale es pe or Free and Modified List bar graphs. 
6¢ : v03-024 TLC1083 Thomas L. Cafarella 20-Jul- 1984 11:00 
8 o7 3 If counter value ates use 0 for del 
0 65 : v03-023 TLC1081 Cafarells 18-Jul-1984 11:00 
3 96 3 Correct use of Roe Ta PROCESSES 7TOP display. 
0 68 : v03-022 TLC1078 Thomas L. Cafarella 11-Jul-1984 11:00 
$3 ; Use SCSNODE node name if present before using SYSSNODE. 
000 71: v03-021 Tuc1072 Thomas L. Cafarella 17-Apr-1984 11:00 
4 Me 3 d volume name to DISK display. 
000 74; v03-020 PRS1019 Paul R. Senn 11-Apr-1984 16:00 
4 g? 3 Fix /SUMMARY for SYSTEM class. 
0000 5§ ; v03-020 PRS1018 aul R. Sen 11-Apr-1984 9:00 
444 oe 3 Display CPU fallen lastend ~* CPU idle in SYSTEM class. 
0000 80; v03-020 TLC1066 Thomas L. Cafarella 01-Apr-1984 11:00 
444 3) 3 Add SYSTEM class. 
0000 BS : v03-020 TLC1063 Thomas L. Cafarella 3-Apr-1984 13:00 
0000 84; Add check to ensure that a counter which is re-inited to 
44 $2 ; zero will not cause an **** to be displayed. 
0000 «87: v03-020 PRS1015 Paul R. Senn 3-Apr-1984 15:00 
44 Hy: 3 add shared error message capability 
0000 «#90: v03-020 TLC1062 Thomas L. Cafarella 31-Mar-1984 23:00 
0000 91 ; Fix bug causing summary averages to be displayed as zeroes 
44 38 3 ah homogeneous classes. 
0000 «94: v03-019 TLC1061 Thomas L. Cafarella 18-Mar-1984 11:00 
B98 2 3 Identify dual-path Tisks by allocation class. 
000 97; v03-019 TLC1060 Thomas L. Cafarella 12-Mar-1984 11:00 
O60 a8 : Make multi-file summary work for homogeneous classes. 
0 100: v03-018 pRs1008 Paul R. Sen 17=F EB-1984 14:00 
8 101 ; e GET_BUFFERS ond seene tated subroutines into separate 
! § 3 ow ey 
o 104: V03-018 PRS1006 Paul R. Senn 17-FEB-1984 14:00 
! 5 ; Add support for ‘‘computed’’ items 
1 ; : v03-018 TLC1052 Thomas L. Cafarella 17-F eb-1984 11:00 
! 3 ; Add multi-file summary capability. 
110 : V03-017 PRS1005 aul R. Sen 13-JAN-1984 10:00 
i : Allow flexible aa. betueen screen items 
118 : v03-016 TLC1051 Thomas L. Cafarella 11-Jan-1984 11:00 
114 ; Add consecutive number to class header record. 
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v03-016 PRS1002 Paul R. Senn 29-Dec-1983 


Page 


16:00 


Add YES and NO global e equated symbols, which are no longer 


defined globally by MO 


v03-016 PRS1000 Paul R. Senn 15=De yin 
For cases where one Steplay event may involve multip 
screens of data (such as PROCESSES and Homogeneous 


¢.sseee? make the wait between screens = VIEWING_TIME, 


nstead of a constant of 2 seconds. 


v03-015 TLC1050 Thomas L. Cafarella 06-Dec-1983 
Change directory information in DLOCK class. 

v03-015 TLC1049 Thomas L. Cafarella 10-0c t-1983 
Position TOP bar display properly. 

v03-014 TLC1048 Tho Cafarella 11-Sep-1983 
Remove UIC from PROCESSES displays. 

v03-013 TLC1047 Thomas L. Cafarella 09-Sep-1983 
De-establish CTRL/W handier to get back AST quota. 

v03-012 TLC1043 Thomas L. Cafarella 30-Jul-1983 
Elimin .e special characters from node name. 

v03-012 SPC0004 Stephen P. Carney 24-Jun-1983 


16:00 


11:00 


15:00 


12:00 


10:00 


13:00 


16:00 
hdd SCS display subroutine for new SCS Class. Add FAO and 


ASCII string for SCS class. 


v03-011 TLC1042 Thomas L. Cafarella 19-Jun-1983 
Add /ITEM quelitier for homogeneous classes. 

v03-011 TLC1039 Thomas L. Cafarella 15-Jun-1983 
had DECnet node name to heading. 

v03-011 TLC1036 Thomas L. Cafarella 10-Jun-1983 
Properly recognize Revision Level 0. 

v03-010 TLC1035 Thomas L. Cafarella 06-Jun-1983 
Add homogeneous class type and DISK class. 

v03-009 TLC1030 Thomas L. Cafarella 25-Apr-1983 
Initialize MIN and MAX Keelere, 

v03-009 TLC1029 Thoma Cafarella 21-Apr-1983 
Correctly calculate A aterrupe Stack"’ string. 

v03-008 TLC1028 Thomas L. Cafarella 14-Apr-1983 
Add interactive user interface. 


v03-008 1LC1027 Thomas L. Cafarella 14-Apr-1983 
Enhance file compatibility features. 


v03-008 $PC0001 Stephen P. Carney 25-Mar-1983 
Add Rwxxx and MUTEX” states in place of MWAIT state. 


15:00 


15:00 


15:00 


15:00 


10:00 


10:00 


16:00 


16:00 


15:00 
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178 g v03-007 TLC1024 Thomas L. Cafarella 1-Mar-1983 11:00 

if 3 Convert an IPID to an EPID before placing it on the FAO 

ive ; stack (for MONITOR PROCESSES display). 

1% : v03-006 TLC1021 Thomas L. Caf arella 07-Jul-1982 16:00 

177 ; Change SSSDEF ree S to GLOBA nce they are no longer 

178 : accessible at | 

0 180 ; v03-005 TLC1018 Thomas L. Cafarella 12-Apr-1982 16:00 

} 1 ; Collect all data at KERNEL mode instead of EXEC. 

$ 1 ‘ : v03-004 TLC1016 Thomas L. Cafarella 02-Apr-1982 16:00 

! : ; Replace references to EXESGQ_SYSTIME with $6 TTIM calls. 

09 1 § : v03-004 TLC1015 Thomas L. Cafarella 01-Apr-1982 16:00 

3 0 ! 3 ; Change .PSECT options in order to group image sections. 

80 185 : V03-004 TLC1014 Thomas L. Cafarella 01-Apr-1982 13:00 
B80 139 : Correct attached processor time reporting tor MODES class. 
9000 198 : v03-004 TLC1012 Thomas L. Cafarella 30-Mar-1982 13:00 

it 132 : Display user's comment string on screen line 5. 
$000 195 ; v03-003 TLC1008 Thom Cafarella 28-Mar-1981 21:00 
444 138 : Fix to display first x last PROCESSES records on playback. 
0000 198: v03-002 TLC1002 Thomas L. Cafarella 20-Mar-1981 13:00 
0000 199; Change PROCESSES display from scroll-style to page-style to 
4 Bo 3 make it terminal-independent. 

0900 0¢ : Widen working set field of PROCESSES display. 
$38 Be : Reset DEC_CRT advanced video options at exit. 

000 ae : v03-001 TLC1001 Thomas L. Cafarella 16-Mar-1981 13:00 
0000 07 ; Add CTRL-W screen refresh support. 

0000 08 ; 
0000 09 ;-- 
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DECLARATIONS - 01 
1 
1 
1 
1 
1 
1 
1 
1 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
; 3; Local Macro Definitions 
5 
5 
5 
6 
¢ 
6 
é 
6 
6 


; 
8 
4 
23 
; 
: 
0 
; 


~SBTTL DECLARATIONS 
»~PSECT MONDATA,QUAD ,NOEXE 


INCLUDE FILES: 


define device class codes 
define device information block 
Descriptor Definitions 
insert 1/0 function codes 
define interrupt levels 
define GETJPI items 
process control block 
process header definitions 
define processor registers 
define PSL fields 

Restart Parameter Block 
define resource wait codes 
SCRPKG definitions 
define status codes 
define process state codes 
define status fields 
define GETSYI item identifiers 
define shared error codes 
define terinal functions 


atten 


SOoOoooooooooooooooo 


SOoSoOOOoooooooooooooooooooooooo 


; Define Class Descriptor Block 

; Define CDB Extension 

; Define Change Descriptor 

; define item descriptor block offsets 
; Define Monitor Request Block 

: Monitor Buffer Pointers 

; Define Monitor Communication Area 
; Monitor Recording File Definitions 
; Define STATS Control Bloc 

; Define Multi-File Summary Block 

; Define temporary storage 


4 
8 
9 
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+ MACROS: 


OOOO CSSOSSSSOSSOSSOCOOOSOOOOOOOOOoOOoOOO 


ALLOC Macro - Dynamically allocate space on the stack. 


1 .MACRO ALLOC LENGTH, RSLDESC,RSLBUF 
SUBL é 


#<LENGTH+5>&<*C3>,SP 
NB ,RSLBUF 


0 
5 

»RSLBU 
¢ MOVL SP ,RSLBUF 


SP 
PUSHL #LENGTH 


<= 


Mum foror 


DEL 


AX/VM 
LARAT 


83 


Tone’ rormence Monitor uritits 1g=$Eb= 1386 91:3? $6? 


3 MOVL SP ,RSLDESC 
6 -ENDM ALLO 
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MONTOR. sae 
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rae, 
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= VAX/VM 
DECLARAT 


7FFF7FFF 
00000000 


—o 
Sx 


ODOOQOQOOOOCOCOOOOoSoSoSo 
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SCoocoooocoo 
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58 EQUATED SYMBOLS: 


>PrPovoz~< 
omo -—-ocmom 


ARGE_NO == “X7FFF7FFF 


o 
“ 
" 
= 
Ww 
~ 


OO 00000009 0009090909098 INI S 
Wie 


FU O OONOUE UO OONO 


@Qourmnn - VWwoO 
Oe nNND 

nu 

ceed eh 


95 MARBARS == 40 


00 T = 
TART_XPOS = 34+4 

THEIGHT == 24 

sz 8 

LINE == 

T_BATA_CINE 


< 
— 
o 


<r Ve comum 
r] 
wn” 
_ 
-_ 
oz 
> 
par 
> 


CWIDTH == 74 
= 236 


wv <<< 
r ] a44 4 be oH 
ww ow 


ce 
=330 
MMNAQOMMMANIN 


== MAXELTS*2 
sz 27 
$ == 15 
= 5 
= Top" 
= 1 
= 
6 
= 


EEE 


al 4 

>o 
o=4oOD 
zZooveo 


0 


oezze 


RRM) 2 2  BOQOOOOOOCOO 


DNA MNES 9 OD NOU FS WN " O OONOUES Wit — 


B= 
& 


NCSI GST 


° 
e 
& 
. 
o 


NE == 2 : 
ATALINES == LAST_DATA_LINE - FIRST_DATA 


; Number of ° 


; number of 


ng col no. for names 
; width of a PROCESSES displa 


; max no. of homog 
; max length 
; max no. of items in a homog class 
; screen package buffer size 


; size 
; siz 9 Vv 
; maximum recere size for PLAYBACK and RECOR 
; system fac sity code 

; Define no. of FAOSTK longwords ... 


AX/VMS Macro V04-00 
MONTOR.SRCIJMONITOR.MAR; 1 (3) 


—" for MOVE_CLASS_QUALS routine: 


Nope 
Move default values to current values 
Move current values to active values 


; Move active values to current values 
; Move ALL statistic value to active 


Number of collection buffers 
‘regular stats'’ buffers 


Number of ‘'percent stats'’ buffers 


Very large number (integer or float) 


; carriage return 
; escape character 


li 


ne feed 
; shift in (selects GO char set on VT100) 


seconds between screens (of a mult scr) 
bar chars in horiz. graph 
same as above for SYSTEM display 
default bar character (for hardcopy) 
video terminal bar character 

max height of vertical bars (VT55) 
stavt of bargraph position 

starting x position for VT55 bar 
number of rows on screen 

number of columns on screen 

Line no of ist data Line on screen 
roe te of last data Line on screen 


number of Lines of actual data on screen 


; number of chars. on x axis 


screen height in points 
screen width in points 
starting col no. for names -- tabular 
starting col no. for names -- bar graph 
starti ag SUMM. 
ne 
value for reg graphics set to PUT_SCREEN 
value for alt graphics set to PUT SCREEN 
max no. of elements for a homog class 
elts in am.f. summary 
f an element ID for homog 


; size of FAOL parameter stack for data disp 


size of FAO output buffer for displays 
n bytes of FAO control string 
in longwords of SPUTMSG message ar 


<z3 


N 12 
rformance Monitor Utilit 16-SEP-1984 01: 4 VAX/VMS Macro V04-00 P 
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3 «e. for tabular display. Used by 
3 «ee FILL HOMOG_SCR H N routine. 


BAR_LWORDS = 3 : Define no. of FAOSTK longwords ... 
i eee for bar-graph display. Used by 
3 ese FILL HOMOG_SCREEN routine. 


? syssoutpuT Device Bid: for Monitor 
; : Loaded into SYSOUT_TYPE 


be CRT = : includes Phy > m octet devices 
VESR = ° : visx seri VTS2 on ; vis5) . 
HARDCOPY = ; : hardcopy eataat Loe Mish. file 
OTHER_VID = 3; other video types 


: Monitor status codes which use shared error codes. 


Pe ee oy oe oy a et et ot ee ee et) 
—Owo 


AUIEF WN 0 OONAU EW 0 ODNOUS UP 


00 
00 
38 
0 
00 
$333 a 
000 ;  keee NOTE teee The MONITOR facility number is defined here and in 
4 : MONMSG.MSG. Any change needs to be made in BOTH places. 
00 : 
OOO000CE 099 FACNO = 206 : local symbol for monitor facility # 
OOCE109A 000 MNRS$_OPENIN == <SHR$_OPENIN+STSS$K_ERROR>!<FACNO@16> ;open-input-file error 
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o s : OWN STORAGE: 
( ° 
0 608 01 00 i NAME COL -BLKB 1 ; column number of name string 
00000019 00 635 BARSTZE: - LONG €5 ; width of bar graph in points (vT55) 
8 Oho 6 00 64 BARCHAR: -BLKB ; bar green charac*?r 
OO00000A 00 65 BPU: -BLKF 1 3; no of bar chars per unit of output value 
00000 26 GMIN: -BLKL 1 3; min value which bar graph can represent 
0000 67 CURGRAPH:: «LONG ; currently enabled vT55 gragn 
000000 68 CURXPOS: «LONG 3; current position for GRAPH6 
900000 16 4 PROCS_PER_REC: .LONG ; number of processes which can fit intoa. 
1A 0 3; «2. single PLAYBACK or RECORD file class r 
000000 9 1A 71 PROC_WRI_BUFD: .LONG 0,0 ; PROCESSES write buffer descriptor 
000000 ; i TOP_PROCS: BLKB 1 3 number of top processes to display 
00000028 00 735 TOP_TIME: BLKQ 1 ; collection time of most recent TO 
028 fe 3 eee display (in system time units) 
0000002F 0028 75 TOP_TICKS: BLKL 1 ; number of clock ticks (10ms units) 
30 : 6 3 «+. covered by most recent TOP display 
00000037 8 4 4 S_TOP_TIME: -BLKQ 1 H Statior to above, but for SYSTEM 
i «ee Class 
00000038 3 44 S_TOP_TICKS: -BLKL 1 i eee 
00000078 0038 Be SYS_TOP_VEC:: .BLKL 1 ; vector of ptrs to SYSTEM TOP arrays 
00000000 00768 8 SYS_DATA_ADOR: : - LONG 8 ; addr of the SYSTEM TOP arrays 
00000000 poze ge SYS_DATA_LEN:: .LONG ; len of the SYSTEM TOP arrays 
00000085 O83 86 SYS_BOX_STR_LEN:: .BLKW 1 ; len of SYSTEM box string 
00000089 0085 87 SYS BOX_STR_ADDR:: .BLKL 1 i se. and its address 
00000000 0089 88 NEWRPOS: -LONG QO 3 next point to plot for GRAPH6 
00000091 Bae 3 PTS_STAT: -BLKL 1 3; save area for SCRPKG return stati 
00000000 0091 91 CTRLW_MASK: «LONG 0 ; mask required by Q10 for out-of-band char 
00800000 943 38 -LONG *x00800000 ; bit 23 representing CTRL-W 
44 099 94 CTRLZ_MASK: ..ONG QO 3; mask required by Q10 for out-of-band char 
0400000 +44 32 -LONG %x04000000 3; bit 26 representing CTRL-Z 
tis $44 OA1 39 CTRLCZ_CHAN:: .LONG 0 ; channel no. for CTRL-C and -2Z 
00000000 4 38 CTRLW_CHAN: : -LONG 0 ; channel no. for CTRL-W 
FECED300 Soa 400 BET_SCREENS: -LONG -10*1000*1000*BS_SECS ; delta time between 
FFFFFFFF Ap $8) -LONG =1 3; «+. screens for single display event 
4F 43 24 53 59 53 seat! te Be yd } 208 SYSCMD_DESC: -ASCID \SYSSCOMMAND\ ; User command terminal 
4F GE 24 53 59 53 satiate tadiae | | cs 404 SYSNOD_NAM: eASCID \S.S3NODE\ ; DECnet node logical name 
D4 = 405 
00000000 if is VTSSXINCR: : -LONG 0 : incr to next bar of graph 
0000E D 408 CB_ADDRS: -BLKQ 1 :; holds coll buffer addrs in GET_BUFFERS 
(00000E¢ E 4 § ITEM_TYPE -BLKW 1 ; holds IDB item type code in FICL_DISP_BUFF 
0 E4 : 219 HOMOG_TYPE -BLK 1 ; holds same as above in COMPUTE_STATS 
000000E8 E4 412 PREV_PD: -BLKL 1 3; no. of processes displayed in previous int 


= VAX/VMS Pe 
DECLARATIONS 
E 
E 
00000008" OOE 
QO00000F0* O0E 
QA OD OOF 
20 3E 52 4F 54 49 4E 4F 4D «(OOF 
OOFB 
pare 
OFB 
OOFB 
0000 Bere 
OE OOFD 
O2 OOFE 
00000000 OOFF 
0103 
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ONAUE WN" OOONOuUSw 


PROMPT _STR:: 


10$: 
20$: 


DYN_STRING:: 


p=19B4 02:01 


‘Se AX/VMS Macro LA 00 
MONTOR. SR RCIM MONI TOR.MAR; 1 
string and descriptor for 
«» subcommand prompt string 


dynamic pore Srsecreter for 
+» use in PLI 

called routine will Fit in length 

strin wir wad type 

dynamic clas 

called peut Ine will fill in address 
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DECLARATIONS -SEP-=1984 02:01:24 CMONTOR.SRCJMONITOR.MAR; 1 (5) 
1 430 ; 
} ? 3; FAO-related buffers required for /DISPLAY 
1 433 ° 
00001A03 au ? : FAOSTK:: -BLKB FAOSTK_SIZE ; DISPLAY buffer containing data for input t 
149 4 § OUTDSC ; FAO output buffer descriptor for data disp 
Q00006A4 1A 4 «LONG OUTDSC_SIZE 
00001A0B" 1A0 4 8 ~ LONG 
O00QO20AF yaue t28 10$: -BLKB OUTDSC_SIZE 
OA 441 SCRDSC:: ; Screen Package buffer descriptor 
Stata AF tt§ «LONG SCRDSC_SIZE 
4 B7° 208 44 «LONG 
00002287 208 444 10$: -BLKB SCRDSC_SIZE 


Laan eee, 


rformance Monitor urifit? = Hated gh: 3: 3 AX/VMS Macro “04-00 Page ! 


Bete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge 


“SEP-1 MONTOR.S REIN MONITOR .MAR; 1 


Control and name strings for screen output. 


These strings contain embedded gecege sequences. Before the strings 
are sent to the Screen ROR, for ou tout. the escape sequences are 
interpreted (in the PUT_TO_SCREEN routines and translated to general- 
case screen package calls. The sequences embedded below are generally 
equivalent to VT5¢ escape sequences, with the following exceptions: 


1) Cursor addresses for both row and column are in the 
form acceptable to the Screen Package -- j.e., the top 
row is 1 and the left-hand column is 1. 

2) ESC B means BOLD all text until an UNDO sequence. 

3) ESC L means UNDERLINE all text until an UNDO sequence. 

4) ESC R means REVERSE VIDEO all text until an UNDO sequence. 


5) ESC U means UNDO all DEC_CRT advanced video attributes selected 
(i.@., BOLD, UNDERLINE, REVERSE, BLINK) 


CLRVTSS:: 

-BYTE 10$-5$ 

-BYTE ESC,“A/1/ 3; enter caer mode 

-BYTE “A/A/,*X20 3; turn off graphs 

BYTE “A/1/.4X 0 ; turn off lines, cursors, etc. 
108 -BYTE ESC,*A/2/ 3; back to alphanumeric mode 
NAMESTR:: 

-BYTE 10$-5$ 
5$: -BYT CR 

ASCII ‘lee! 

-—BYTE LF 

ASCII ‘!AC* 


10$: 


; Finish sequence -- set regular character set, 


; reset DEC_CRT (VT100) AVO characteristics, and 


Pea al ot ot ot ont ont ont ot nae ot at ae at at wt EM MUMUMARMUMAMUMUMUMUAMUMae eee 


OOOO O OOO OOOO 0909 09 09 69 69 09 69 69 09 SINS SN NSS AA AAD AAA AMI UII 
MOOD NAWVE WN 2 OOO NAME WN OS ODNAUE WIN CO OONA UE WN CO OONOAOUES WA) OOONO 


; carriage return. 


IN_SEQ:: 


-BYTE 10$-5$ 
-BYTE ESC,*A/G/ ; Set peguier character set 
.BYTE €SC,*°A/B/,ESC,*A/L/ A ie Te /R/ 
3 Set AVO char'cs so UNDO works 
-BYTE CR 3; Need to send a character to set attribs 
yt ages BAUr ; Undo DEC_CRT AVO characteristics 


=2 
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ts 


Pp 
Pp 
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3; Sequence to place the cursor on the bottom Line and clear it. 


4; 
5 
§ BOT_CURS:: 
-BYTE 108 
08 5$: -BYTE ESC 
BYTE ESC 


Page 13 
. (6) 


; Position to bottom Line on screen 


; Clear to end of Line 


=2 


r 
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v04-000 DECLARATIONS sia 


16SEP=1984 01:59:24 VAX/VMS Macro V04-00 Page 1 
gree E8e Bhi87:St HARAYOS Becca uoenoo, , =«Page | 


<z 


4 
7) 


DD 12; 

DD i 3; Announcement strin including home and clear screen, set regular 
4 13 : char set, and identification Yrop Line of the screens. » 

DD 1 s 

17 ANNCE_STR:: 
1D 01 59 18 4A 1B 48 18 47 # 8 5$ BvTE 128 V6, ESC,“*A/H/,ESC,*A/J/,ESC,*A/Y/,1,29 
69 6E 6F 4D 20 53 4D F 58 41 56 ee, “ASCIL \VAX/VMS Monit ia. “oh 
5 9h > bt 83 te 88 50 98 GF 9% om re ae 


; Status + i 
3; It contains ind 
3; and ‘RECORDING’ 


This is bottom Line (footing) of the screen. 
ications for ‘''PLAYBACK'', ‘'SUMMARIZING'', 


STATUS_STR:: 
15° .BYTE  10$-5$ 

01 18 59 1B 5$: “BYTE ESC,*A/Y/,24,1 
43 41 21 TASCIL \IAC\ 

22 18 59 1B “BYTE ESC,“A/Y/,24,34 
43 41 21 TASCIT \tAC\ 

46 18 59 1B “BYTE ESC,“A/Y/,24,70 
43 41 21 ve TASCII \UAC\ 


: Title string, including cursor positioning and title (with 
3; optional percent sign), centered and reversed. 


TITLE_STR:: 

28° -BYTE 10$-5$ 

1B 5$: -BYTE ESC,“*A/Y/,2,1 3; Position cursor 

21 ASCII \!Me \ ; Preceding blanks 

8 -BYTE ESC,*A/R/ 3 Reverse-video 

30 SASCIL \ FAC '#<(%) !>\ : Title text 

18 -BYTE ESC,“A/U/ 3; Undo reverse-video 

20 03 1 BYTE ESC,“A/Y/,3,32 : Optional position cursor 
41 21 20 65 64 6F 6E 20 6E 6F ¢ -ASCII \ on node !AC\ ; Optional nodename text 

10$: 


3; User's comment string, eae tating cursor positioning 


L~4 
OD OI a AQ LOM OOM PS OVIAVIVIVIVIVIUIUINIEMG © NL OT nnn COMO O 


PER P PREPRESS PWR 2 2 9 SS SS BQO TH NTT HHH HH HMOS 
PUPS VLVSVSVSVSVSVSTSD SUF FFU UU 


PDEA AAPM PPLE ES EWI npnrronnonnny) 
MEW —OOONOUESW MO OCONOUSWN OOOO USWA OC OONOuUS wn 


; 
3 
01 02 59 
20 2A 3 
20 29 25 28 3C 23 21 20 43 41 : 
‘ 
29 
20 
93 85 383 
i 


3 and comment string, centered and reversed. 
COMM_STR:: 
-BYTE 10$-5$ 
5$: ~BYTE €ESC,*A/Y/,5,1 ; Position cursor 
ASCII \iMe \ ; Preceding blanks 
48 -BYTE ESC,*A/R/ ; Reverse-video 
20 46 41 21 2 ASCIT \ SAF \ : 


; Title text | 
| 


Vo4-080 SeYARAUMFoRertormance Wonicor ucility — 1gesep-tgge 61:89:34 AACS MaEsgay forcman:1 "29° (3, 


55 18 332k 298 108: -BYTE €SC,*A/U/ ; Undo reverse-video 


Page 
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DECLARATIONS 


es 


wy 

Cc 

-— 

_~ 

ao 

c 

- 

rc) 

° 

o oe 

- aw 
| 

. = 

o > 

— 

° a 
a ao nw 
Cc c = 
= " —- © 
Cc = wn ‘= > 
° c a @ ~ ®& 
te rT) -¢ _ ” «& 
ae @ ad 7 
— . se se 
wr Vv = 
oO wn . w 
a ° - oa 

= +d °o ” 

i uw = -_— > 
o -— 3 wn 
wn ” cS) 
ee > ‘= 
3 nn oO - °o 
Vv cw _ 

- ~ ~~ ~ oH -@ wn nr wn wn 

oa mm wv a ww wo wvweE woes ao wow wo ms 
c s . = . . pe . . é€ oe . o Fad 
= ww Vv - - ~~ MmM-T - -2sNnerne 
wo * . @ = . vw sO + . Oo +O * .~ 4 
3 —~ Ss a ~ US'S co ~<c™~ co ~<«~ <7 ~vYU 
_ >- > yw |. —- ee > w Dil hed al aad ax 
v ~ = ~~ Ss ~ ~ sa ~ > =e ~@ 
c “ae <« — *a=<« <« bal Ata a Adc--a «a A<x> 
te mw<e wt °o me wt oo wc Et = c w< &< <« = we <« 

‘ -o *O = ' <6 *o ce t oO *= - § =O se 8 ' %J 
bed Avaive AVERVE — AvVYVCvyD ~ Av tw ows> “av 

o ouw--w- n Ow--w"-- oe ouMunwn “OMe Yr on om 
Cc wwe Cc www “SG www ~ ee ~-we 
ro -_ “ac . [+ 4 
te . @ «o _ 

a —_— = a —_— = oe ot i & “” — — oF a 

w (UT old wn (vUTVer er) co Use & Od We 

Re Vrwvu De tl ae dk ee -Cc | 4 od ee eed | Wee Or Uru | ol aed 

& rrr a >>> w er - >>> nw 2 uw ->ruw 
€ -@Oo «coc i= YOa«ac c YOoa<« oc —@MOo<o<oct aoc 
—- wf ee ee @ - teeeee ~o teeeee — —_Jd ee eee e oad ee 
ce a td w SS w @ = a 
~ - ™~ = aw z - = to 
w ” @ — E-- Seed Vv “a ” 
te a rc e 53 —_ a ” ‘ 
eo we ee o f bd °o a t o- = 
a = cae a oy Cal "a id ” ” a <« 

—_ o > A o A ~-> A o _ * 
cerere ee WT - cerere WW WT - cererers Ww Ww serore WW - aw 


OPP P-P-P-P-P-P-B-”-BR. WDC DWADDWWODWDWDDAAMAAAAOAAAAOOOO So 
LLVLULVLVLVLVLVL ULL VLVLULVL ULL ULV VELLA OO OO re] 


ODO er NUON 
WOWOOOOOOOOOOOOOO 


POET ETE ~T GO OD a CUCUICUICUICUCUCUICIIOIE. i EK EK NOL 
WMINIAIAUNIUAAIN OOO OOOOOOOOOPR-P.PR.PP_P-A_AAPR_R.. COCO 
| ll all al nll ll dl nd nl nl Und nell Unde nd Und Und und Und und adh Und adh Lcd Lindh Und Lindh Und Lindh Lad Lact Lad Lad Lad Ud Lad Ua a | 


orNeN Sennen Rese 
ASAS ASAS ANAANS ARASAR AR 
S3Sy S35 SSSSRY SSOmMos + 
- 8 mS moun Momus > 
m SS ma RS vs 
S AR 28 8 % 
nu AA uN y 
> Rs anes > 
¥ Rm + + $ 
RN & 

aN 


oo 
am 
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¢ 3 
47 GE 49 SA 49 52 41 4D 4D 55 38 a: 
55 18 
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DECLARATIONS 


55 18 


OF’ 


8 i 
20 47 4E 49 44 52 4F 43 45 ; . 
55 18 


TNH HHH HN HMMMMMmMmmMMnooovlvolw7o 
VD NN UUW UTI APO 


Ww 


BYTE 
3 é 10S: 
g ; SUMM_STR: 
g -BYTE 
5$: BYTE 
0 ASCII 
631 BYTE 
6 § 10$: 
e4 4 REC_STR: 
BYTE 
6 ‘ 5$: BYTE 
aie 
63s 10S: : 
641 BLANK_STR:: 
643 STA STATUS _PARMS : 
644 FOOTS; 
645 FOOTR: 


ESC,*A/U/ 
ee 
C,*A/ 

SU 


ESC ,“A/U/ 


eASCIC \ \ 


Cc 
es 


P=1984 
P=1984 


MMARIZING \ 


a 82:01:84 
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Undo the reverse 


; String for footing Line 


Reverse video 
Undo the reverse 


String for footing Line 
Reverse video 
Undo the reverse 


Blank string for footing and heading Lines 


Status parms -- next 3 longwords 
Address of ‘'playback’’ or blank string 
Address of ‘'summary’’ or blank string 
Address of ‘record’ or blank string 


—_——- 
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IT - VAX/VMS Pe 16-SEP-1984 :59:24 VAX/VMS Macro V04-00 Page 18 
y04 000 DECLARATIONS toes 7 83:39:84 MONTOR.SRCJMONITOR.MAR; 1 ° (9) 
4 47 ; 
Z is ; PROCESSES screen heading string. 
4 e 
4 6 9 PROCHEAD_STR:: 
0101.59 48 Seoe 688 58 BYTE. ESC eeA/Y/,161 Positi 
| . Pa ° ; Position cursor 
6E 75 6F 43 20 73 73 65 63 6F 23 30 rhb 654 ‘ASCII \Process Count:\ 
3C 01 53 1 416 655 -—BYTE €ESC,*A/Y/,1,60 3; Position cursor 
3A 65 6D 8 9 48 41A $28 ASCII sVet lees) 
106 59 1B 2421 $2 -BYTE ESC,“*A/Y/,6,1 ; Position cursor 
0 4% 49 50 20 20 20 20 20 20 36 26 5457 86 ASCE Ne’ orp state pri’ names” paces 
20 49 $2 30 6 £5 4 £1 Se $4 50 50 5085 
0 20 20 20 9 2 45 4D 41 3f 0 3 43F 
45 47 461 50 § 0 te8 
54 3 43 4F 49 44 20 rH! 20 20 20 20 45 660 eASCII \ DIOCNT FAULTS CPU TIME \ 
50 43 20 $9 53 54 ef 5 41 46 20 20 245F 
20 20 20 20 20 20 45 4D 49 54 20 55 #68 
5 1B 26 661 -BYTE ESC,*A/U/ ; Undo underlining 
479 662 10S: 
479 = 66 
479 = 664 ; 
479 665 ; Tabular screen heading string. 
479 $96 3 
479 = 66 
479 668 TABHEAD_STR:: 
43° 2479 669 BYTE 10$-5$ 
4C 8 47A 670 5$: -BYTE ESC,*A/L/ 3; Underline 
52.55 43 267C 671 “ASCII \CUR\ 
55 1B 247F ore BYTE €SC,*A/U/ ; Undo underlining 
20 20 20 20 20 20 20 43 41 21 +2481 67 SASCII \IAC \ 
4C 18 2488 674 -BYTE €ESC,*A/L/ 3; Underline 
45 56 41 24680 675 “ASCII = \AVE\ 
55 18 2490 676 YTE ESC» *A/U/ ; Undo underlining 
20 20 20 20 20 20 20 43 41 21 2D 21 +2492 # 677 ASCII \t-!ac \ 
4C 18 249 o78 -BYTE ESC,*A/L/ 3; Underline 
4E 49 4D 246A 67 eASCII \RIN\ 
55 18 24A 680 YTE ESC, °A/U/ ; Undo underlining 
20 20 20 20 20 20 20 43 41 21 2D 21 24A5 «681 ASCII \t=!AC \ 
4C 1B 2481 6 § YTE €SC,“A/L/ 3; Underline 
58 41 40 2483 6 ASCII \PAX\ 
55 1B 248 684 BYTE ESC ,*A/U/ : Undo underlining 
43 41 21 2D 21 4B 685 eASCII NIT AC\ 
48D 686 10$: 


<= 


a 
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v04-000 DECLARATIONS $7 SE =19 & 3:39:82 MONTOR.SRCJMONITOR.MAR; 1 . (10) 
4BD 6 8 ; 
isp 3 : Heading string for special SYSTEM class screen 
48D 91 
1F* SeBD 808 MEMOS TRES sosess 
01 01 59 1B reg} 694 5$: ~BYTE ESC,*A/Y/,1,1 
yaad se 63 83 59 ie Sete 886 ASE Mode: At) 
20 3A 63 69 74 73 69 74 61 74 33 4CF $97 “ASCII \Statistic: \ 
44 41 21 246DA 698 ASCII \IADN 
4DD $29 10$: 
40D 00 
ab 58) ; 8 h headi tri 
; Bar graph screen heading string. 
40D 708 : . ' 
40D 704 
400 £05 BARHEAD_STR:: 
40° 2400 706 BYTE 10$-5$ 
6 96 9 1B 24D 707 5$: -BYTE ESC,“*A/Y/,6,38 
3E 21 43 41 21 4C 55 21 3C 30 31 21 2462 708 ASCIL NETOCHULIACES> !10<!ULIAC!>!10<!ULIAC!>!6<!ULIAC!>!M< !>!5ULIAC\ 
3E 21 43 41 $1 4C 55 21 3C 30 31 21 24EE 
SE 21 43 41 21 4C 55 21 3C 30 31 21 24FA 
21 3E 21 43 41 4 4C 55 $} C 36 21 2506 
43 41 21 4C 55 35 21 3E 21 20 3C 23 2512 
5iE 709 10$: 
SiE 710 
S51E 711; 
aE at; ; Bar graph statistic heading string (in smaller box). 
SiE 714 
51E 715 STATHEAD_STR:: 
21° 251E at -BYTE 10$-5 
OD 02 59 18 251F 717 5$ -BYTE ESC,“A/Y/,2,13 
2B 2D 2D 6p se 3 28 2523 718 eASCII \teeee- +\ 
D03 59 18 252A 719 ~BYTE ESC,*A/Y/,3,13 
20 7¢ 25 720 eASCII Ni \ 
44 41 21 5 721 eASCIIT \!ADN 
7C 20 25 7 § ASCII \ iN 
OD 04 59 1B 25 7 -BYTE ESC,*A/Y/,4,13 
2B 2D 2D 2D 2D 2D 2B 22539) = 724 ASCII \tee--- +\ 
54 725 108: 
54 7 $ 
2% 727 ; 
4 728 ; Other bar graph strings 
338 if 3 3 
59 18 i 4 1 CURSOR_STR:: -BYTE ESC,*A\Y\ ; Position cursor escape sequence 
0 0 2D 20 2D 20 2D 20 2D 20 28 34 7 j HORIZ_STR:: ASCII] Veer ere teerer eter ereteoerceae +\ 
0 2D 20 2B 20 2D 20 2d 3 D 8 D 254E 
0 2D 20 2D 20 2B 20 20 D D 255A 
B 2D 20 2D 20 2D 2566 
56C 734 ; Top and bottom Line of bar gragh box 
25 oF 26e 735 PCENT_STR:: eASCIC \B\ : Percent symbol string for heading Line 
4B 00° 38 736 K_STR:: eASCIC \K\ ; K symbol string for heading on bar graph b 


a “2 


S£p=198c 03:01:34 YRONYOR. SRESRONI TOR. MAR: 1 


~ 


M13 
; Ler tormence Monitor Utility 
ON 
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DECLARAT 


Vb4-000 


Page 


; Table of statistic headings for bar graph 
; Long version for SYSTEM class screen 


Od Od Od Ot OS Oe 


ANAMANAMNMNMNMM 
«<<< <a<aac<c 


STAT_HEAD: : 
STAT_LONG: : 


—Me- OOM OG 
o vw 


NOOO —NOO— 
WWNST TUN TT 


CAN WICO COUN WC 
ATTN IN 


NAO 
WaT aT 
M20 
vwvwwv 


rr 


Tnoaa 
www 
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ITOR - VAX/VMS Performance Monit utilit 16-SEP-1984 :59:24 VAX/VMS Ma v04-00 P 1 
yO4-000 DECLARATIONS ps = yer eer 1b84 0220154 at - 


$f $h 3) 55 321 gonmpsan-grogene 
46 41 21 20 2A 23 E 
URERRE SITE are 
43 41 21 28 3C 23 21 20 2A 23 § 3 
46 41 21 SE 21 

43 41 $1 PPO ESE E "O05 000° 

64 6F 4E 20 6E 77 OF 6E 68 6E : 
oc 

16° 

01 00 59 18 

36 32 21 3E 21 20 20 2 $0 39 3¢ $3 4 
E 21 43 41 21 3C 

00000006 

00002601 


— OO TN NHN HH HHH HMMMoOOWOWW rOOOOO 


feate ate .T oslo tual wal waleal val eal eal al al ab Al Ab Ab Ab Ah Abe ab ab Ab Ab A AL AL AL Ad 
MUMIUITR A HMMmMmmMmmmm—O—-OF-OOoOrfor > 


SEP=1984 MONTOR. SRC €JMONI TOR. MAR; 1 1) 


746 ; 

He ; FAO control strings for name string displays for homogeneous classes. 
74 
750 DISK_FAO: eASCID \IMCIACIAMOSIAC! ZW: !>! ae SAF\ 


ey ; Disk FAO str cee. ing ablec class) 
752 DISK_FAO_AC: sASCID \I13<S!ZBS!AC!ZW: !>!#e !A<C!AC)T> 


753 ; Disk class FAO string (vith alloc cls) 
754 SCS_FAO:: eASCID \!AC\ : SCS class FAO control stri ng 

755 UNKROWN_NODE:  .ASCIC /Unknown Node/ ; Counted ASCII string for a 0 Length 
P36 ; node name in the system block. 

£38 : FAO control string for item name display for homogeneous classes 

760 ° 

761 ITEM_NAM_STR: 

£06 7BYT 10$-5$ 

763 5$: -BYTE ESC,*A/Y/,0,1 ; Cursor position 

764 "ASCIL \the 'S 136 <tACID\ 

765 10$: 

766 ILN_REG = 6 : Item Line number for yopnet displays 
767 ITMCNNO = ITEM_NAM_STR+3 ; Label for item Line number 


—— 


__ 
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1TOR - VAX/VMS Performance Monitor uritit 16-SEP-1984 01:59:24 VAX/VMS Macro v04-00 Pa 
v04=000 DECLARATIONS yee een 13be 83'07556 EMOATOR.caeamoNs tos mars? P29 (93, 
00002616 2615 168 SYSOUT_TYPE: -BLKB 1 3; SYSSOUTPUT device typ 
61 3; MONITOR SYS UT types ore 
616 (77 ; DEC CRT. VI5X, OTHER VID, HARDCOPY 
3 oe ; (Type codes Net ned above) 
SE 61 774 PROC_SETUP_STR: .LONG epg-10s ; Descriptor for PROCESSES screen setup ... 
000261E' gia a 108: LONG 0$ i ee. String (incl. cursor positioning 
' 10 01 59 1 1 77 . YTE €S 6 “A/Y/ 1,16 ; Cursor position to process t field 
3E 21 4c 55 24 $C 33 I $95 ohh Rech NT Sé! sachet , sepa ks 
44 g 9 1B 262A 779 15. Eee” vie 1,68 ; Cursor position to uptime field 
34121 26 . 7 0 ASCII NTAg\ 
? : f 20$: 
000 03. 631 7 ‘ PROC_RES_STR: .LONG 20$-10$ f, Doser ipter ie eyeneeees oe control . 
6° 639° 2635 784 -LONG 10$ "g (resident eres 
41 35 21 20 4C 58 21 ¢0 99 2 639 785 10$: ASCII \ 'XL !S5AC but’ Teste AF TO<IUL/! L's, Su '7UL !2¢+)! 
29 ge 8 34 4 0 4C 55 32 21 20 4 645 
4C 55 21 3C 39 21 $e 46 41 35 31 21 651 
20 4C 55 37 4 0 3€ 21 4C 55 21 2F 2650 
25 21 29 2B 28 32 21 20 4C 55 37 } $67 
676 786 20$: 
676 8s 
00000045" 2676 788 PROC_NRES_STR: .LONG 20$-10$ ; beserteyee fer processes FAO control ... 
et Sa ' 267A 789 -LONG 10$ sro (non-resident process) 
41 35 21 20 4C 58 21 ¢0 99 0 2 67E 790 10$: ASCII \ 'XL !5AC Sui" yest AF !9<!UL/!UL!>!5(+) SWAPP 
29 ¢ 8 34 21 20 4C 55 32 21 20 4 68A 
4C 1 3c 39 21 $e 46 41 35 31 21 696 
20 34 B 28 35 21 f 1 4C 55 21 2F 6A2 
45 50 50 41 57 53 20 20 20 20 20 20 26AE 
20 2A 39 21 54 55 4F 20 44 oa8 701 208 
6c3 79 : 
6C 198 ; - 
see o3e 3; Top PROCESSES FAO control string for one process display Line 
6C3 796 * 
6C 797 TOPSTR: 
2B° 26C 798 -BYTE 10$-5$ 
02 00 59 1B 2604 799 5$: -BYTE ESC,“A/Y/ 0/2 position to left margin 
He 3 3 ¢ $8 34 4 $8 0 4C 58 ¢! 6c8 800 eASCIT NEXL $404)! 15AF '7<t MOL > \ 
betdtibet 3S EEE 
é 1B gee 01 BYTE 9 TO ad ; select alternate char set 
2A eA 2 * 6E7 8 ASCII \tMee\ i re ayeestng bar character 
48 1B 47 18 gee B? 108 <BYTE €ESC,*A/G/,ESC,*A/K/ : ect reg set and erase to EOL 
000g ocG 6EF 8 TOPLNNO = forsee ; label for Line number 
000026EA re} TOPBAR = TOPSTR+39 ; label for bar character 
6EF 3 
re} 09 : Top PROCESSES FAO control string to erase a Line 
eer if a STR: 
06° ett 18 -BYTE 10$-5$ 


MONITOR 
v04-000 


01 


OF 


00000000 


59 55 52 4B 4A 48 47 
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DECLARATIONS “SEP-1984 02:01:24 CMONTOR.SRCJMONITOR.MAR; 1 ( 
00 59 1B gro 14 5$: -BYTE ESC,“*A/Y/,0,1 ; position to left margin 
4B 1B 2 12 -BYTE ESC,*A/K/ ; erase to end of Line 
000026F 2 is 2 ERLNNO = ERLINE_STR+3 ; label for Line number 
0000004' ef 15 VTI00_REGSET: .LONG epe~10s ; descriptor for VT100 ... 
ie GFE’ 26FA 0 «LONG 0$ ; eee ‘regular’’ char set esc seq 
42 28 18 oF 1 108: -BYTE ESC, *A/(/,*A/B/,51 
0000 Ops ? g VTI100_ALTSET:  .LONG 1 ta ; descriptor for VT100 ... 
9308 A‘ 27 4 - LONG $ j; «ee ‘‘alternate’’ graphics set esc seq 
28 18 f . 5 J + -BYT ESC,*A/(/,*A/0/ 
44t468 70D : VT100_CURSET: BLKL 1 ; addr of esc seq descr for curr char set 
0000 Oe 711 8 REG_SET: «LONG 20$-10$ ; VT52 esc seq to estab regular char set 
ae «i * 2715 9 «LONG 10$ 
47 1B 2719 0 198: BYTE ESC,*A/G/ 
718 31 208: 
718 B36 
718 33 PUTSCRARG: ; arg List for PUT_SCREEN call 
00000004 2718 te «LONG 4 3; argument count 
sit 4a 71F = =6835 «LONG TXT_DESC ; addr of buffer to Gisplay 
00900000 at B38 -LONG 0,0 i; no cursor pos specification 
00000000 ree $ ATTRIBMSK: .LONG 6 ; start off with no special attributes 
72F 339 TXT_DESC: ; hold area for descriptor to be PUT'd 
ee Tet 72—F «840 TXT_LENGTH: -BLKL 1 : length 
00002737 t33 eh TXT_START: -BLKL 1 ; address 
46 42 4C 2737 bc$ ESC_SEQ TABLE: .ASCII \LBFGHJKRUY\ ; table of valid escape modifiers 
0000000A el ste ES_TAB_CEN = .-ESC_SEQ_TABLE : length of table 
000027A9 2741 846 PUTMSGVEC: -BLKL PUTMSGSIZE ; Message argument vector for SPUTMSG 


| 
| 
| 


—— + 7 
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P=1984 01:59:24 VAX/VMS Macro Vv04-00 Page 
v04-000 CALC_LEN = Calculate class record length ~$Eb=138e §3:59:5¢ MONTOR. SRC JMONITOR.MAR; 1 1 4) 
-SBTTL CALC_LEN = Calculate class record Lengths 
0000 "PSECT S$SMONCODE ,NOWRT EXE : 


FUNCTIONAL DESCRIPTION: 


This routine is called to calculate the length of a block 
(CDOBSW_BLKLEN) for each STANDARD class. Non-standard 

classes have this value entered at compile-time. Block 

length for standard heterogeneous classes is defined as the 

sum of the sizes of all data items which comprise the class, 

and which are recerecd (calculated items which are displayed but 
not recorded are not included in block length). 

Block length for standard homogeneous classes is the sum of 

all data items comprising the class Sie hug ig the element ID) 
for a SINGLE element (e.g., for a single disk). 


In addition, some pre- reeseery for the MODES class is done 
and, for homogeneous classes, the CDXS$W_CUMELCT, CDX$B_IDISCONSEC 
Cox$w_IBITS and CDX$B_IDISCT fields are initialized. 


; CALLING SEQUENCE: 


CALLS #1,CALC_LEN 


; INPUTS: 


4(AP) = address of MRBSO_CLASSBITS, the bit string 
representing classes to be monitored. 


; IMPLICIT INPUTS: 


PERF TABLE - table of IDB's describing each data item, 
indexed by item number ( * entry size). 
CDBHEAD - table of CDB's, one for each class. 


MAX_CLASS_NO = maximum class number (class numbers are zero-origin) 
MODES_CLSNO = MODES class number 
MODES_ICOUNT = MODES item count (for uniprocessor) 


; OUTPUTS: 


; IMPLICIT OUTPUTS: 


CDBSW_BLKLEN (block length) field established for each CDB. 
PROCS_PER_REC field established for the PROCESSES class. 


; ROUTINE VALUE: 


RO = SS$_NORMAL, or MNRS$_ITMNOTDEF 


14 
= VAX/VMS Performance Monitor utitity 19736-1388 91:39 
CALC_LEN = Calculate class record length 5-SEP-1984 02:01: 


‘6 AX/VMS M 
4 (CMONTOR.SR 


4- p 
ESRoNTToRsMAR:1 29° (93) 


0 Ss 
§ : SIDE EFFECTS: 
8 ; None 
9 — 
a 
OFSC 8 318 ENTRY CALC _LEN, *M<R2,R3,R4,R6,R8,R9,R10,R11> 
0 915 ; 
: 818 ; First, re-establish item count for the MODES class (uniprocessor) 
918 ° 
16 04 BC 00000000'8F E1 5 919 BBC #MODES_ CLSNO,@4(AP) ,10$ : Skip if MODES not present 
56 si 89 DE 0908 920 MOVAL CDBHEAD,R6 3 ket oddvess of first CdB 
56 00000000°8F CO 001 921 ADDL #<CDBSK_SIZE*MODES CLSNO>,R6 3; Calculate addr of MODES CDB 
14 A6é 00000000'8F 00 oot? 4 ¢ MOVL #MODES_TCOUNT,CDBSC_ICOUNT(R6) : Get uniprocessor item count 
0021 924; 
8° : 3 ; ; Now calculate CDBSW_BLKLEN for all requested classes. 
0021 927 © 
0021 928 10$: 
5B D4 0021 929 CLRL R11 : Init starting bit position 
0023 930 20$: 
59 20 »vd0 0023 931 MOVL #32,R9 : Init bit field size 
0026 o36 3 NOTE -- must handle in 32-bit chunks 
58 5B 00 89 3 o37 30$ MOVL R11,R8 ; Init start position of next chunk 
5A 0486C 59 58 CEA 00 9 935 ; FFS R8,R9,a4(AP),R10 : Search for next class number 
OO2F 936 ; R10 contains ciass no. if found 
11 13 OO2F TA BEQL 40$ 3; Branch if none found this chunk 
18 10 Q031 938 BSBB CALC_CLASS ; Cale block Length for this class 
1450 €9 0033 939 BLBC RO,50$ 3; Go return if error 
59 58 CO 0036 940 ADDL R8,R ; Compute next starting 
58 SA O01 C1 tH 941 ADDL #1,R10,R8 3 eee position and field size 
59 58 C2 0030 208 SUBL2 R8,R9 3 ee. for this chunk 
—7 ‘11 once 943 oo BRB 30$ : Go search rest of chunk 
FFD9 5B 20 0000°8F 3D a9éa rH ‘ ACBW #MAX_CLASS_NO,#32,R11,20$ ; Loop to process next chunk 
046A 947; 
GA 8¢8 3; At this point, CDBSW_BLKLEN fields for all monitored classes 
4A 49 ; have been established. 
4A 950; 
04A 951 
4A 326 50$: : 
04 4A 895 RET 3; Return with status in RO 
48 See 
48 5 
048 329 CALC_CLASS: ; Cale block length for this class 
048 : 3; NOTE -- R10 contains class number 
rr 28 ; Regs R8 thru R11 must not be changed 
56 SA 994 8F 3 4 60 MULL3 #COBSK piz5-R10-R6 ; Compute offset to desired CDB 
56 0000 "EF 46 E 5 961 MOVAB CDBHEABCLR6),R6 3; Index to CDB address 
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B 6 
ae 
B 964 ; For all classes except homogeneous standard classes, set the 
8 age ; element count (of elements displayed) equal to the item count 
8 4 § ; (of items collected). 
B 67 ; 
58 443 
3 5 § BBS #COBSV_HOMOG, CDBSL_FLAGS(R6),10$ ; Br if homo 
D : 370 . MOVL  § CDBSL_TCOUNT(R6),CBBSL_ECOUNT(R6)'; Item count = elt count 
EO 006 $4 BBS #COBSV_STD,CDBSL_FLAGS(R6),20$ ; Br if a standard class 
D0 6A 97 MOVL  #<MAX_REC_SIZE-MNR_CLSS$K_H$1ZE-MNR_PROSK_PSIZE>,R2 
1 974 > Get max data size 
A? 0071 975 DIVW3  CDBS$W_BLKLEN(R6),R2,W“PROCS_PER_REC 
07 976 3 Compute pceseeees er record for ... 
ba5 977 3 «ee PROCESSES non-STD class 
11. 007 44 BRB 80$ 3; ALL done with this class 
007A 979 208: 
DO Baen 44 MOVL COBSL_ICOUNT(R6) ,RO ; Get no of items to sum for this CDB 
DO 0 43 981 MOVL COBSA_ITMSTR(R6) ,R1 ; Address of item-number string 
D4 008 o8g CLRL Re ; Clear block size reg 
0084 983 30$: 
9A 0084 984 MOVZBL (R1)+,R4 ; Get next item number 
C4 0087 985 ULL #IDBSK_ILENGTH,R4 3; Compute index into IDB table 
9E 008A 986 MOVAB WAPERFTABLELR4I,R4 : Address of IDB for this item 
9 4444 987 TSTB | + aa cheaaaat 3; Is this a calculated item? 
12 009 98° BNEQ 0$ : Branch if so (don't add to size) 
BOR o3 CASE IDBSW_ISIZE(R4) ,<40$,50$,60$>,W ; Select on proper size 
06 Na 991 40$: INCL Re ; Add 1 for byte 
11 QOA2 443 BRB 70$ 
CO QOOA4S 993 50S: ADDL ae R2 3; Add 2 for word 
11 OA? 994 BRB 70$ 
co AY 995 60$: ADOL one Re 3; Add 4 for lonqword 
F5 Boat p44 70$: SOBGTR RO,30$ ; Loop for each item in this class 
B0 beak 44 MOVW R2,CDBSW_BLKLEN(R6) ; Store away size for this class 
008 1900 3 
si ! 03 3; Now add in size of element ID for homogeneous classes 
0B 199 : 
€1 o08 1004 BBC #CDBSV_HOMOG,CDBSL_FLAGS(R6),80$ ; ALL done if hetero 
pO 0088 1005 MOVL  CDBSA_COX(R65.R ; Get CDX addr for homog class 
A ¢ 1 é MOVZBL CDX$B ELIDLEN(R ),RO  : Get Length of element 1D 
AO 9¢0 f ADDW2 RO, CDB$W_BLKLEN(R6) ; Add it in to get data block size 
Oca 1 $9 ; Also, for homogeneous classes, initialize CDX$W_CUMELCT 
bee ! 19 3; and €ox$B_IDiS ONSEC, and calculate display item count. 
C4 1012 ° 
B4 bea 1 13 CLRW COX$W_CUMELCT(R2) ; Init cumulative element count 
98 i ! \% CLRB COX$B_IDISCONSEC(R2) ; Init consecutive display number 
10 CA 1 18 BSBB CALC_DITEM ; Calculate ei eptey item count 
11 ef ' Vi 80s ARB 90$ ; Go return with status in RO 


v¢ 
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CALC_LEN = Calculate class record length 


50 601 =—0 G90} 1036 MOVL #SS$_NORMAL ,RO 
05 34 90$: RSB 


ro V04-00 
MONTOR.SRCJMONITOR.MAR; 1 


3; Success status 
3; Return with status in RO 


ro Gh, 
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3 CALC_DITEN: 


oo 
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gf 8 £39 :5¢ YRONTOR. SREIMONI TOR MAR: 1 — (ie 


; Cale display item cnt for homog class 
447 ICOUNT(R6) ,RO ; Get count of all items for class 
#COx$S 


IBITS-1, = 
COX$W_TBITS(R25 ,30$ ; Br if ALL items requested for display 


— 


Use FFS loop to calculate the number of display items requested. 
Store the number in COX$B_IDISCT. eee, Sheer any bits higher 


; than the number of items defined for t 
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IBITS,R1 ; Cale number of unused bits 
COXSwW_IBITS(R2)'; ... and make sure they are clear 
: Init counter of requested items 
; Init starting bit number for FFS 


R3 contains item number if found 
20$ 3; Branch if none foun 


R4 ; Count this item 

#1,R3,R1 ; Compute next starting eee 
R1,#CDX$S_IBITS,RO i 2. position and field size 
10$ ; Go search rest of bit string 
R4 ,CDX$B_IDISCT(R2) ; Store number of display items 
40$ 3 e+. and go return 


LL items requested for display. Store number requested in 
DXSB_IDISCT, and set all item bits in CDX$W_IBITS. 
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COX$W_IBITS(R2) : Start out with all item bits clear 
#-1,#0,R0,CDX$W_IBITS(R2) ; Set all bits defined for this rev. 


RO, COX$B_ {DISCTTR2) 3 «ee and store its count 
#SS$_NORMAL Rg ; Assume normal status 
COXSO_IBITS(R ) : Check if no items requested 

0$ ; Br if at least one requested 
SMNRS_ITMNOTDEF ; Stack MONITOR failing status code 
#1,MON_ERR ; Log the error 

#MNRS_TTMNOTDEF ,RO ; Get status to caller 


Return to caller 


23 
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-SBTTL MOVE_CLASS_QUALS = Move Class Qualifier Values 


= VAX/VMS Per 
MOVE _CLASS_QU 


FUNCTIONAL DESCRIPTION: 


This routine is called to move a set of values from 

one CDB or COX field to another. In particular, the QFLAGS 
(class qualifier flags), IBITS (item bits) and the ST 
(display statistic) values are moved among three fields 
defined for each, representing default value, current value 
ong active value. The types of moves are defined below under 


CALLING SEQUENCE: 
CALLS #1,MOVE_CLASS_QUALS 
INPUTS: 


4(AP) = address of a byte cores a code indicating which 
type of move to make, as follows: 


If code = 


WOODOOOOOOODWWODOODODODO VN PP 


DEF_TO_CUR(=0) => Move default values to current values. 


CUR_TO_ACT(=1) => Move current values to active values. 
In addition, clear the CDBSV_EXPLIC bit. 


ACT_TO_CUR(=2) => Move active values to current values. 
ALL_TO_ACT(=3) => Move the ALL statistic value to active. 
IMPLICIT INPUTS: 
CDBHEAD - tahle of CDB's, one for each class. 
MAX_CLASS_NO = maximum class number (class numbers are zero-origin) 
COBSB_ST, CDBSB_ST_DEF and CDBSB_ST_CUR fields for each CDB. 
CDBSW_QFLAGS, CDBSW_QFLAGS_DEF and CDBSW_QFLAGS_CUR fields for each CDB. 
COXS$SW_IBITS, COXS$W_IBITS_DEF and CDX$W_IBITS_CUR fields for each homog class 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
Requested move is performed. 
ROUTINE VALUE: 
RO = SS$_NORMAL 


a et a ee ae ae ee a a me a a dd od oo od od dd 
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c* 
>a 
ro 


vi 
1 8 i ; ; SIDE EFFECTS: 
10B 1135: None 
128 11 § 3 
12B (11 ;-- 
18 118 
0048 a B 1140 -ENTRY MOVE_CLASS_QUALS, “M<R3,R6> 
5 QOOOOO00'EF oD 12D 114 MOVAL CDBHEAD,R6 ; Get address of first CDB 
3$  Bopoonos Be OU BlSe 128 MOVL MAX CLASS_NO#1,R3 : Get number of CDB’s 
1 ; 1144 CASE BG (AP) .<108,208,508,408>.6 3; Select on type of move 
0090 31 0148 1145 BRW 0$ ; Do nothing if out of range 
gg ts 
148 1148 : DEFAULT TO CURRENT 
14B 1149: 
128 1181 108: 
44 A6 43.06 90 01468 115 ‘ MOVB CDB$B_ST_DEF(R6),CDB$B_ST_CUR(R6) 3 Load default stat t 
Ag 47 AG BO 0150 1133 MOVW  CDBSW7QFLAGS_DEF (RG) ,CDBSQ QFLAGS_CUR(R6) : Load default qual flags. 
09 48 A6_ 05-——CE1: «=—0155) 1154 BBC #CDBSV_HOMOG, CDBSL_FLAGS(R6),15$ : Br if heterogeneous clas 
50 3206 DO 015A 1155 MOVL  CDBSA_CDX(R65,R : Get CDX address 
046 A0 02 A0 80 13 1136 os, MOVW CDXSWIIBITS_DEF(RO),CDX$W_IBITS_CUR(RO) : Load def item bits to cu 
56 00000053 8F CO 0163 1158 ~ ADDL #CDBSK_SIZE,R6 : Point to CbB f t cl 
DE.53 «FS (O16A (1159 COBETR RECGOS less fer cack 
0068 31 0160 1160 RW 50§ : Go to common exit 
gig 8 
0170 1188 : CURRENT TO ACTIVE 
170 1164: 
Bi} 162 aos. 
42 A6 3844 06 90 017 1169 : MOVB CDBSB_ST_CUR(R6) ,CDB$B_ST(R6) ; Load current stat to act 
45 A6 49 A6 BO 0175 1168 MOVW CDBSW-QFCAGS CUR(R6) ,CBBSW_QFLAGS (R6) ; Load current qual flags 
00 48 AB «OOC;S:téS O17 1189 pans BBCC  #CDB$O_EXPLIC, COBSL_FLAGS(R6) ,22$ : Indicate no explicit qua 
08 48 AG =00S5)S—CiED:s«COO17F Ss ; BBC #CDBSV_HOMOG, CDBSL_FLAGS(R6) ,25$ ; Br if heterogeneous clas 
50 3206 DO 0184 1128 MOVL  § CDBSA_CDX(R65 RO : Get CDX address 
60 04 AO 0 \3e Vie? 25$ MOVW COX$W_IBITS_CUR(RO) ,CDX$W_IBITS(RO) ; Load curr item bits to a 
18¢ 11750~CO 
56 00000053 oF co 18¢ 112% ADDL # DERE SIZE AG : Point to CDB for next class 
DA 53. SCO‘ 1 117 SOBGTR R3,20$ ; Loop for each CDB 
0042 «31 196 1178 BRW 50§ : Go to common exit 
199 1180 
199 1181 : ACTIVE TO CURRENT 
199 11 g : 
133 NEE so 
44 A642 AG °° 199 1185 ; MOVB COBSB_ST(R6) ,CDBSB_ST_CUR(R6) ; Load active stat back to 
49 a6 4 Ag BO O19E 11 $ MOVW CDBSW~QFLAGS(R6) ,CDBS@_ QFLAGS SUR(R6) ; Load active qual flags b 
08 48 A6_ 0 E1 Q1AS 11 BBC eces HOMOG , CD $i _FLAGS(R6) .3 $ :; Br if heterogeneous clas 
50 32 Ag DO O1A8 11 : MOVL  CDBSA_COX(R : Get CDX address 
04 a0 60 BO O1AC 11 MOVW CDOXSWTIBITS(RO) ,CDX$W_IBITS_CUR(RO) : Load active item bits ba 
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180 118 
56 00000053 BF cg 180 119 ADDL BCORSK SIZE .RG ; Point to COB for next class 
a ae 1B7 119 SOBGTR R $ ; Loop for each COB 
1F 11 QIBA 1194 BRB 50$ ; Go to common exit 
1BC 1195 
18¢ 1138 : 
1BC 1197 ; /ALL TO ACTIVE 
1B8C 1138 3 
18C 119 
1BC 1200 40$: 
10 4B A6 _ 04 3 196 1 4 BBC #CDBSV_STD,CDBSL_FLAGS(R6) ,45$ :; Br if non-standard class 
44 Ab 4306 91 OCT 1 : CMPB = CDBSB_ST_DEF (R6),CDBS$B_ST_CUR(R6) ; Is default stat equal to 
09 is 8168 120 BNEQ 45$ ; Br not 
0448 A6 OC £0 O1C8 1 Be BBS #COBSV_EXPLIC,CDBSL_FLAGS(R6) ,45$ :; Br if explicit qualifier 
42 06 90 1D 1 05 we MOVB #ALL_STAT, CDB$B_ST(R6) : Force the ALL statistic 
56 00000053 8F C0 1D1 (1 0? ADDL SPeRE BILE RS ; Point to CDB for next class 
iB ee | be. : 33 SOBGTR R3,40$ ; Loop for each CDB 
01DB 1210 50$: 
50 01 DO QO1DB 1211 MOVL #SS$_NORMAL ,RO 3; Indicate success 
04 ODE 1212 RET 3 ee. and return 


ormance Monitor uritity i at dat bs 9 93:39:36 AX/VMS Mac 


y0e-000 FETCH « tottecs Data into Buffer EP=-19 MONTOR. SAE IRONS TOR MAR: 1 — dy 
: ~SBTTL FETCH = Collect Data into Buffer 
& ++ 
FUNCTIONAL DESCRIPTION: 
F This routine is called to collect the data for the next interval. 
F It scans a table describing which items to collect, and moves 


each item to the proper slot in the collection buffer supplied 
by the caller. 


CALLING SEQUENCE: 

Entered via CALL from SCMKRNL system service. 
INPUTS: 

4(AP) = address of CDB (Class Descriptor Block) 

8(AP) - address of Ist byte of variable portion of collection buffer 
IMPLICIT INPUTS: 

EXESGQ_SYSTIME - current time in system time (quadword) units 


PERFTABLE = table describing each data item, indexed by 
item number ( * entry size) 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
CURRENT collection buffer is filled with raw data. 
ROUTINE VALUE: 
SS$_NORMAL 
SIDE EFFECTS: 
None 
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a I i FFF FF FN FN FN FN FY Fe Ge PN PN Pe ee ee FN en 8 ed UN PD 0D PPD UD PD 0N 9D 0D we 
SIDED DEDEDE DEDEDE DDE TTI Be BS BE BB II NII NII NII NIPPON PNNNNINIIY 2 SS SO 


SODA NEW SO OD NAN WN SO OO NAME WN OS OO NAME WN O OO NOUS WN OUWOONOUS 


0078 eENTRY FETCH, “M<R3,R4,R5,R6> 
26 04 AC 00 MOVL 4(AP),R 3; Load CDB pointer 
5 ge AC 0 MOVL 8(AP),R ; Load addr of ist byte of og tual data 
F6 AS 00000000'GF 7D MOVG G*EXE$GQ_SYSTIME,<MNR_CLS$Q_STAMP-MNR_CLS$K_HSIZE>(R5) 
3; Gét current time Tnto coll buffer 
: If this class has a pre-collection routine, call it. 
22 a6 ODS ; TSTL  CDBSA_PRECOLL(R6) 3 Is there a pre-collection rtn? 
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g 13° O1FS «1271 BEQL 10$ : No == continue 
DD iF6 1 ie PUSHL R 3 Yes -- stack coll buffer addr 
22 B6 1 fe 1F 1 CALLS 4 | DBSA_PRECOLL (R6) 3; Call it 
5850 € 1FC (1274 BLBC RO, 708 :; If failed, get out 
4651 £9 O1FF £3 a BLBC ~=—s_«R}1, 65S : If fetch is not required, skip it 
41 4B A6 Se E1 03 1 3 : e-¢ #COBSV_STD,CDBSL_FLAGS(R6) .65$ ; ship fetch if non-STD class 
3¢ 48 AB «O0S~StséECO t £8 BBS #CDBSV-HOMOG, CDBSL_FLAGS(R6),65$ ; Skip fetch if homog class 
50 14 A6 v0 ¢ 1280 MOVL  § CDBS$L_ICOUNT(R6),RO : Get number of items to fetch 
. 4g Dd 10 1281 MOVL EyOOn, A ERSTRCRS) oi ; Address of item-number string 
5 D4 \° ! ¢ 208 CLRL R ; Clear loop counter 
54 81 9A 1 1284 | MOVZBL (R1)+,R4 : Get next item number 
4 11 gs 1 1285 ULL #10B$K Heh R4 3; Compute index into IDB table 
54 O000'CF44 3 1 1 § MOVAB W*PERFTABLE R45,R4 3; Address of IDB for this item 
10 A469 1 TSTB DBSB_FLAGS(R4) ; Is this a computed item? 
02 13 1288 BEQL 238 ; no, go collect 
18 «O11 8 f : 3 25$ BRB 0$ > yes, skip this item and on to the next 
8 : 4 R CASE IDBSW_ISIZE(R4) ,<30$,40$,50$>,W ; Select on proper size 
85 0C B& 90 0234 1 38 30$: MOVB 71 LOtA POOR ORS , EASE* ; Collect a byte 
OA 11 O 3 1294 BeB 60$ 
85 OC Bs o9 0 + : 32 40$: _ @IDBSA_ADDR(R4),(R5)+ ; Collect a word 
85 OC B4 8 46 1 39 50$: MOVL aeee ADDR(R4),(R5)+ ; Collect a longword 
cc tw F 8 3 ' 38 60$: AOBLSS RO,R3,20$ 3 Loop until done 
0248 1300 ; 
rt ! 01 ; If this class has a post-collection routine, call it. 
68 1 88 . 
48 1304 65$: 
50. 01 00 0248 1305 MOVL #SS$_NORMAL ,RO ; Assume good status at this point 
26 Ab D3 0248 1306 TSTL  CDBSA_POSTCOLL(R6) : Is there a post-collection rtn? 
07 13 O24E 1 th BEQL 70$ ; No == go return 
08 AC OD 50 1308 PUSHL 8(AP) 3: Yes -~- stack coll buffer addr 
26 B6CéO FB 2 ' * CALLS #1,@CDBSA_POSTCOLL(R6) ; Call it 
57 1311 70$: 
04 57 1312 RET ; Return with status 
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bata B78 p=19 4 2:03:54 MONTOR.SRCJMONITOR.MAR; 1 


-SBTTL CLASS_COLLECT = Collect & Transform Data 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine is called once per interval - "lass to collect 
and record raw data and to do statistical sformations of 
that data. The transformations include ci » fons of minimum 


value, maximum value, total since request . jen, percent, etc. 
On the first call to this routine per re uest, up to ten buffers 
are obtained. These consist of two flip-flopped collection 
buffers for raw data, and up to 8 statistics buffers. On subsequent 
calls, the buffers are updated. 
CALLING SEQUENCE: 
CALLS #1, CLASS_COLLECT 
INPUTS: 
4(AP) = address of byte containing class number 
IMPLICIT INPUTS: 
CDBPTR = pointer to CDB (Class Descriptor Block) 
MRBPTR = pointer to MRB (Monitor Request Block) 
MCAPTR = pointer to MCA (Monitor Communication Area) 
SPTR = pointer to SYI (System Information Area) 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 


Collection buffer filled with raw data for this class 
for this interval. 


ALL required statistics buffers filled with transformed 
data for this class for this interval. 


COLLENDED bit set to YES if this collection 
has passed the requested ending time. 


ROUTINE VALUE: 
RO = NORMAL 
SIDE EFFECTS: 
None 
REGISTER USAGE: 


Rg = CDB pointer 
R? = MRB pointer 
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ITOR = VAX/VMS Performance Monitor U Bit 16-SEP-1984 01:59:24 VAX/VMS Macro V04-00 P 5 ! 
404-000 CLASS_COLLECT = Collect & Transform Data eet 7 §3:39:3¢ MONTOR. SRC JMONITOR.MAR; 1 — 7) v0 
1371 ; Re = CURRENT collection buffer pointer 
1372 ; R9_ = PREVIOUS collection buffer pointer 
1375 ; R10 = Buffer block pointer 
: fe 3 R11 = MCA pointer 
3 1 6 ; Others are volatile. 
1358 | 
1308 
OFFC 1381 .ENTRY CLASS_COLLECT “M<R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> 
ss popes Be Hig at RTE teed 3 ealiter 
° ; Loa ointer 
28 —B0000000'EF bo 68 1384 MOVE -MCAPTR-R11 : Load MCA pointer 
OC AB «DS «(O26F 61 TSTL MCASL_COLLCNT(R11) ; First collection ? 
oc 12 8 A 1 5? BNEQ . Wis 3; No == keep going 
woo 8 16 74 1388 JSB GET_ BUFFERS 3; Get collection & stat buffers 
03 50 5s 027A 1389 BLBS RO,5$ ; Continue if OK 
016F 1 8 43 ! 4 $$ BRW CC_ERROR ; Else exit with error 
SA 2E AB 00 0280 1 3 ; MOVL § CDBSA_BUFFERS(R6),R10 _; Load address of buffer block 
03 4B A6 «6005—CEW «COO 8 139 BBC #CDB$V_HOMOG, CDBSL_FLAGS(R6),10$ ; Br if not homog class 
A 6A 00 p HH 1g0¢ MOVL (R10) ,R10 ; Get MBP ptr for homog class 
C 1396; 
8 Bc Hi 3; For standard classes: 
028C 1399 : Load CURRENT buffer pointer (R8) and PREVIOUS buffer pointer (R9); at 
028C 1400 ; the same time, flip-flop the state of the CDBSV_SWAPBUF bit, so BUFFERA 
8 C 1401 ; and BUFFERB will be swapped on next CLASS COLLECT call for this class. 
028C 1406 3 When COBSV_SWAPBUF is OFF, BUFFERA is CURRENT; otherwise, SUFFERB is 
Osec 1eh7 3 CURRENT. 
oe8t 1405 ; For non-standard class (PROCESSES): 
028C 1407 ; CURRENT buffer pointer (R8) always points to BUFFERA. The CDB$V_SWAPBUF 
C 1398 3 bit is always clear. 
C 1409 ; 
E HEI os 
18 48 A6 =604—~—EO C 1318 BBS #COBSV_STD,CDBSL_FLAGS(R6),15$ ; Branch if STD class 
01 OC AB ODI 1 141 CMPL MCASL_COLLENT(K1T) #1 =; Second collection coming up? 
§8 19 38 1414 BNEQ ; No -- sant tous 
21 43 A7 Sie ar 1212 BBC #MRBSV_SUMMARY ,MRBSW_FLAGS(R7),20$ ; Continue if not summarizing 
9C 1249 : Swap MBPSA_BUFFA and MBPSA_BUFFIST pointers in order to retain data 
$3 1213 : from the first collection Buffer for use later during summary processing. 
9C 1420 ° 
51 6A OD 9C 1421 MOVL MBPSA_BUFFA(R10) ,R1 ;_ Save current coll buff ptr : 
6A 04 AA OD 9F 14 § MOVL MBPSA BUFF IST(RIO) MBPSA_BUFFA(R10) ; Point current to first 
04 AA 51 «OD AS 14 MOVL  R1,MBPSA_BUFFIST(RIO) jf ... and first to current 
«M3 A 14 4 BRB 20$ : Go make BufferA CURRENT 
9 14 $ : Standard classes 
AY 1427; 


C1 
MON = VAX/VMS Performance Monitor urstits 16-SEP=1984 01:59: AX/VMS Macro v04-00 Page 36 | 
04-000 CLASS COLLECT © Collect © foanctorm bata SasePo}98 G2:01 154 PASAYOS taete NOt OO ke Page (36, v0 
a9 1685 158: 
OF 4B A6 01 «E46 O2A9 16 BBSC  #CDBSV Sy coups aR FLAGS (R6) 208 Clear bit if set & branch 
48 AB «01S iOs«éOT FO AE 1431 INSV #1, #CDB “CDBSL af babs (R Bit aiias clear -- set it 
58 04 AA D B4 14 ‘ MOVL  MBP$A_BU vreRe Of Rg ; Make Buiferd CURR 
59 6A D0 02B8 14 MOVL HBPSA BUFFERB RIO )iR9 i; we and BufferA PREVIOUS 
rT. 4 1? 2 208: BRB 30$ 3 «ee and continue 
58 6A «OO «(02RD 14 $ MOVL § MBPSA_BUFFERA( (R103, Rg ; Make BufferA CURRENT 
59° 04 AA DO O2cd 14 MOVL § MBPSATBUFFERB(R1 : ... and Buffer® PREVIOUS 
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v04-000 CLASS 


row 


Pp 
LE 


oz 


; Collect data for this class into the CURRENT collection buffer. 


30$: 
BSBW “a 3; Get data for this class 
BLBS RO,40$ 3; Continue if OK 
BRw CC_ERROR ; Else exit with error 


; If a record request, perform recording. 


o 

oOwo 

= & 

NMVIW 

Noo 

Wn 

—2o 
DOOOSCOSDSOOODODOOOOOO 


40$: 
44 43 A7 4 E1 BBC #MRBSV_RECORD ,MRBSW_FLAGS(R7),70$ ; Continue if not recording 
05 43 a7 03 «ET BBC #MRBSV-PLAYBACK ,MRBSW_FLAGS(R?),50$ ; If Live, go record 
3A 32 AB 02 E1 50S BBC #MCASV_MULTFND ,MCASW_FLAGS(R11),70$ 3; Skip rec if mult not found 
13 4B A604 g0 BBS #CDBSV_STD,CDBSL_FLAGS(R6) ,60$ ; If STD class, go write a record 
7E 2006 3C MOVZWL COBS$W_BLKLEN(R6),-(SP) ; Non-STD class -- push data block size 
58 ODD PUSHL R8 3 ee. and collection buffer per 
OOOOO4BA'EF 02 FB CALLS #¢ -WBETE_PROC_RECORDS ; Write the required num of PROCESSES recs 
25 50 gs BLBS RO,70$ : Continue if status OK 
OOFB 1 60s BRw CC_ERROR 3; Else exit with error 
7. «rm CLRQ (SP) 3; Get descr on stack for CALL 
6— 20 A6- B80 MOVW CDB$W_BLKLEN(R6),(SP) ; Move_in length of buffer 
07 48 AB =6005-—StiET—sCON RF BBC #CDBSV_HOMOG, CDBSL_FLAGS(R6),65$ ; Br if a heterogeneous class 
6— OD AB C4 Hi MULL2 <MNR_CCS$K_HSIZE+MNR_HOMSL_ELTCT>(R8) , (SP) 
0 ; Times number of elts for homog class 
6—E 08 CO 3 65$ ADDL2 #MNR_HOMSK_PSIZE, (SP) 3 ee. plus the prefix 
6—€ OD CO 030 ADDL2 #MNR_CLSSK_HSIZE,(SP)  ; Add in class header size 
04 AE 58 DO 030 MOVL R8,4TSP) 3; Load address of buffer 
5E ODD 0 PUSHL §$ 3 Stack descriptor address 
OO0O000000'EF 01 FB 0 CALLS #1,WRITE_RECORD 3 «+. and record the buffer 
70$: 
00° 8F 04 BC 91 CMPB 24 (AP) ,#MODES_CLSNO ; Is this the modes class? 
1F 12 BNEQ 80$ 3 no, branch 


:\ Combine MODES counters if required 


' BBC #COBSV_CPU_COMB, CDBSL_FLAGS(R6) ,75$ 
; Br if not special MODES case 
BSBW COMBINE _MODES ; Combine modes for all cpu's 


03 48 A6 «60(03——Cié#E‘S 
OOFE 30 


: Sum the first six counters to get sum of all CPU modes 


MEA O OD NAW WN 2 O ODO NAU ES WIN OOO NAU EWN SO OOD NAU EWR OOONOUS W000 


WOO OO 00090909 09 69 09.09 09 G9 SI IIS NNO DDD DDO TTI PEO 
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75$: 
00000000 EF D4 CLRL CPU_BUSY ; Zero CPU_BUSY : 
6 00 MOVL . 3; Get number of modes for display 
51 D «Ci 778 ADDL3 #MNR_CLSSK_HSIZE,R8,R1 ; Compute start addr of Ist set of counters 
00000000°EF 81 i! " — ADDL2. (R1) +, CPU_BUSY ; Sum of non-idle mode counters 
F650 s#F SOBGTR RO,77$ ; 


$$$, 
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yOu-000 CLASS COLLECT © Collect & fronsform bata SosePo1984 G2:01254 TASWYOR.caeamoN;toscmar:1 29° (38, v0 
C 9 
1 
c 99 ; Fill STATS buffer for homogeneous class 
f 08s 
7F 48 AG «=6004SséE? is j BBC #CDBSV_STD,CDBSL_FLAGS(R6),120$ ; If non-STD class, skip all transfo 
11 4B A6 92 E1 41 BBC #CDBSV_HOMOG, CDBSL_ inceareg << Mt aad Br if a heterogeneous class 
9 OD 46 PUSHL R : tack addr of PREV coll buff 
3 DD 48 PUSHL R : thet adder of CURR coll buff 
00000000 ' EF FB 4A CALLS . bibl HOMOG_STATS : Fill STATS buffers for homog class 
03 5 ge 51 0 BLBS ; Continue if OK 
0098 1 54 1 BRw fe “ERROR ; Else exit with error 
2f } 90$: 
OC AB DS 57 1 TSTL CASL_COLLCNT(R11) ; First collection? 
64 «13 2A | BEQL 120$ : Yes -=- skip all transforms 
C 16; 
: ! ; Calculate MCASL_INTTICKS (clock ticks during interval just finished) 
€ 1519 ° 
52 03 A8 7D MOVQ MNR_CLS$Q_STAM pags ; Current system time to temp regs 
26 03 Ad C2 SUBL2 NR “CLS$Q_STAMP(R9) ,R2 _; Calc low-order in sys units 
53 07 AD—oé9 SBWC R~CLS$Q~STAMP+4(R9),R3_; Calc high-order in sys units 
52 08 AB 52 000186A0 8F 7B EDIV #100000, R2 MC ASL_INTTECKS(RI1), R2 ; Calc interval ticks (10ms units) 


3: ee. for use later 


Do Data Transformations for STANDARD (homogeneous) classes 


43 48 A6 05 «€1 BBC #CDBSV_HOMOG, CDBSL_FLAGS(R6),110$ ; Br if a heterogeneous class 


18 Aé6 ODS TSTL COBSL_ECOUNT (R6) 3; Any elements in STATS? 
44 13 BEQL 120$ 3 No -- skip transformations 
51 10 00 MOVL #CDX$S_IBITS,R1 ; Init bit field size 
50 04 CLRL RO : Init start position 
54 D4 CLRL R4 3; Init item index 
100$: 
52 32 A6 00 MOVL CDBSA_CDX(R6) ,R ; Get CDB extension for NOMDG class 
53 62 50 «EA FFS RO,R1> EDXSU. 16h75(R2). R3°; Search for next item num 
3 *r3 contains item number if. Sound 
ae BEQL 120$ ; Branch if no more items 
50 1C B643 9A cre @CDBSA_ITMSTR(R6)CR3I, RO ; Load IDB item number 
11 gs MULL #I1DBSK- ILENGTH,RO ; Compute index into IDB tyate 
50 *CF40 f MOVAB W*PERFTABLE Rod, RO : Address of 108 for this ite 
OOE2'CF OA AO B MOVW IDBSW_TYPE(RO), W“HOMOG_ TYPE ; Save item type for COMPUTE STATS 


> S & 0000000000009 090909 08 SIN NN SINS NN NNN NNO O07 
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acDBsA A-BUFFERS(R6)CR41,R1 »R10 
BSBW TRANGEORRS ; 


Load MBP ptr for this item 
re 
l trons’ ‘n buffers for this item 
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18 BA ve 13 ; POPR #*M<R3,R4> ; Restore regs 
9} c} AE 1555 ADDL #1,R3 ne ; Compute next starting ... 
0 ¢ Bo 1 : SUBL3 RO.#COX$S_IBITS,R1 i ++. position and field size 
54 06 B6 1 INCL RG 3; Update item index 
co «Oo +4 ! 8 BRB 100$ 3; Go search rest of bit string 
BA 1560 ; 
24 } 1 ; Fill STATS and do Data Transformations for STANDARD (heterogeneous) classes 
BA 1 $8 Z 
BA 1 rf: 110$ 
$f 3 BA 1565 BSBW FILL We TERO. STATS ; Fill STATS from the 2 coll buffers 
0 BD 1566 BSBwW TRANSFOR ty ee and fill all transformation buffs 


ARE NOE Eerste tae NAS Fuca MERRIE BUSSE SAE SeSpotafPeans "A 


é 3 Call FOLLEGT ION. END if end of couyection has been reached. The end 
; of collection i§ tested by comparing the system time (quadword) 
71 ; values of the current time and the requested end time. 
3 
oe 120$: 
31 AB «60048C~— 91 7 @4(AP) ,MCASB_LASTC(R11) ; Last class? 
i 12 id: BNEQU CC_NORMAL : No -- just exit 
it a 03 ae 7D 7 MOva MNR_CLS$Q pi arm ns) MCA$Q eb tS Ten Catt) : Yes ve rencabe r latest col 
43 A7 EO 4 BBS PNRBSY ve net END, MRBSW_ FLAGS(R7),CC_NORMAL ; Skip end check LB indef 
CA? (07 3 D1 7 CMPL MNR mae Q STAMP+4 (RB) > “hhase _ENDING?4 4(R7) ; Has curr time pas 
0 3 eee requested end thi-orde 
10 #1 1 BLSSU CC_NORMAL 3; No -- simply return 
07 «201A § BGTRU 130$ 3; Yes -- indicate so and ret 
08 A? +03 AB ODI H CMPL MNR_CLS$Q_STAMP(R8) ,MRB$Q_ENDING(R7) ; Check low order longword 
07—=o'1F ; 1308 BLSSU CC_LRORMAL 3; Not at end yet -- return 
00000000°EF 00 FB HF CALLS #0,COLLECTION_END ; Indicate collection has en 
oe ; COLLECTION_END sets COLLEN 
89 CC_NORMAL: 
50  O0000000'EF 00 + ce sence VL NORMAL ,RO 3; Indicate normal status 
04 a RET ; Return 
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-SEP-1984 MONTOR.SRCJMONITOR.MAR; 1 
»SBTTL TRANSFORMS = Perform Data Transformations 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine updates all transformation buffers (STATS, MIN, 
AX, SUM, PCSTATS, PCMIN, PCMAX, PCSUM) for STANDARD classes 
(both homogeneous and heterogeneous). 

CALLING SEQUENCE: 


BSBW TRANSFORMS 


INPUTS: 
R6 = COB pointer 
R7? = MRB pointer 
R8 = CURRENT buffer pointer 
R9_ = PREVIOUS buffer pointer 
R10 - Buffer block (MBP) pointer 
R11 = MCA pointer 


IMPLICIT INPUTS: 
ALL transformation buffers 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 


ALL transformation buffers updated with statistics 
from the current collection. 


ROUTINE VALUE: 

None 

SIDE EFFECTS: 

Registers RO,R1,R2,R3,R4,R5 destroyed. 


TRANSFORMS: ; Perform data transformations 
; Update SUM buffer from STATS buffer 


MOVL MBPSA_STATS(R10) ,RO ; Load STATS buffer gointer 
MOVL MBPSA_SUM(R10) Ri 3; Load SUM buffer pointer 
MOVL CDBSL~ECOUNT(R6) ,R2 ; Load count of elements in STATS 


ADDL2 (RO)+,(R1)+ ; Add this item to SUM buff 


-_. 
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FA 52 =FS ; 1 SOBGTR R2,10$ 3; Loop for each item in STATS buff 
1845 A6 00 €E1 : ; 16 BBC #CDOBSV_PERCENT ,CDBSW_QFLAGS(R6),30$ ; If percent not requested, skip 
049E 30 2 : HF BSBW FILL_PCSTATS_BUFF 3; Fill PCSTATS from STATS 
40A 1657; 
“ 1888 3; Update PCSUM buffer from PCSTATS buffer 
50 18 AA OD tke 1660 ° MOVL MBPSA_ Posrars cao) RO ; Load PCSTATS buffer qornter 
51 24 AA DO 040E 1661 MOVL § MBPSATPCSUM(R10) ,RI : Load PCSUM buffer point 
52 18 AB OD rf 1966 20$ MOVL CDBSL_ECOUNT(R6), RD ; Load count of eleateee 4 PCSTATS 
81 80 i! 418 1664 = ADDL2_—s- (RO) +, (R1)+ ; Add this item to PCSUM buff 
FAS2 F 419 1665 SOBGTR R2,20$ : Loop for each item in PCSTATS buff 
i 1867 ; Update PCMIN and PCMAX buffers from PCSTATS buffer 
0552 30 041¢ 1869 r BSBW —_— UPD_PC_MIN_MAX ; Update PCMIN and PCMAX 
ge 1a 
Bett 1626 ; Convert counts to rates in STATS buffer and update MIN and MAX 
O41F 1674 © 
O41F 1675 30S: 
048D 30 O4IF 1o76 BSBW COMPUTE_STATS ; Convert counts to rates in STATS 
8255 \o7? 3 «+. and update MIN and MAX 
05 0422 1679 RSB ; Return from TRANSFORMS subroutine 
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-SBTTL COMBINE_MODES = Combine Modes for all CPUs 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine is called by CLASS_COLLECT to combine the mode 
tick counters for all CPU's on fhe systen, The monitored 
systes is a multiprocessing system, but the user requested 
that the display and/or summary show combined values for 
the processor modes (/NOCPU). 

CALLING SEQUENCE: 
BSBW COMBINE _MODES 

INPUTS: 
None 


IMPLICIT INPUTS: 


R6 = Pointer to MODES CDB 

R8 = Pointer to CURRENT collection buffer 
OUTPUTS: 

None 


IMPLICIT OUTPUTS: 


The first 7 longwords in the data portion of the collection buffer 
will contain combined mode counter values for all CPU's on the system. 


ROUTINE VALUE: 
None 
SIDE EFFECTS: 
Registers RO, R1, R2 destroyed. 


COMBINE _MODES: 
MOVL_ CDBSL_ECOUNT(R6 
ADDL3 #MNR CLSSk HS1Z 
MOVAL  (R1)CROI,R2 


Get number of modes for display 
Compute start addr of ist set of counters 
Compute start addr of 2nd set of counters 


Combine 2nd set with Ist set 
ee» for all counters 


),ROC 
E,R8,R1 


10$: 
ADDL2 (R2)+,(R1)+ 
SOBGTR RO,10$ 


RSB 


Return 


v( 
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r 1738 -SBTTL QUAD_LT_QUAD = Compare Two Quadwords 
d 1733 Sy 
4 1748 ; FUNCTIONAL DESCRIPTION: 
436 1743 ; This routine is called by PL/I routines to compare two unsigned 
4 1744 ; quadword values (such as system time values). The routine answers 
436 1745 ; the question: Is the first value less than the second value? 
“ ? 1768 : The value YES or NO is placed in RO upon exit. 
4 6 1748 3 CALLING SEQUENCE: 
4 6 1730 ; CALLS #2,QUAD_LT_QUAD 
4 6 1736 : INPUTS: 
04 : 1734 : 4(AP) = address of first quadword value 
Be 1726 : 8(AP) - address of second quadword value 
0436 1758 : IMPLICIT INPUTS: 
0436 1759; 
Siig neh Ene 
0236 176¢ : OUTPUTS: 
0436 1788 : Routine value below. 
0436 1766 : IMPLICIT OUTPUTS: 
0436 1767 ; 
SE ae 
04 6 1770 : ROUTINE VALUE: 
Seae Hae : RO = YES if first quadword value is less than the second quadword value. 
8s ° et? 3 RO = NO otherwise 
0436 1775 : SIDE EFFECTS: 
0436 1776 3 
Be 6 1777; None 
436 1778; 
436 1779 ;-- 
a3 178 
0000 4 4 g -ENTRY QUAD_LT_QUAD, “M<> 
7D 04 17 ¢ MOVa 4{AP),RO ; Pointers in RO and R1 
D1 C 17 CMPL 4(RO) ,4(R1) 3; First < Second (hi-order) ? 
1F 41 17 § BLSSU 0$ : Yes -- answer is YES 
1A 0443 17 BGTRU 0$ 3 No -- answer is 
D1 45 17 3 CMPL (RO), (R1) ; Check low order Longword 
1F ree \? 8 108 BLSSU 20% : Go answer YES 
00 6A 1791 "  MOVL ~=—s #NO, RO : First not less than second 
1 44D 1736 BRB QLQ_RET ; Go return 
44F 1793 208: 


15 
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MOVL #YES,RO ; First less than second 


1 
4 § 1738 QLQ_RET: 
1796 RET ; Return with value in RO 


04 04 


ro V04-00 Page 4 
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-SBTTL QUAD_EQ_0 = Compare Quadword = 0 


+ 
ae 


FUNCTIONAL DESCRIPTION: 


This routine is called by PL/I routines to compare an unsigned 
quadword values (such as a system time value) with the quadword 
tees oe phe routine answers the question: Is the quadword value 
equal to 0? 


FUSS 


The value YES or NO is placed in RO upon exit. 
CALLING SEQUENCE: 

CALLS #1,QUAD_EQ_0 
INPUTS: 

4(AP) = address of quadword value 
IMPLICIT INPUTS: 

None 
OUTPUTS: 

Routine value below. 
IMPLICIT OUTPUTS: 

None 
ROUTINE VALUE: 


RO = YES if quadword value is equal to 0. 
RO = NO otherwise 


SIDE EFFECTS: 
None 
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.ENTRY QUAD_EQ_0, aM<> 


mova @4 (AP) ,RO Quadword yolue te RO, R1 
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C : 
fi d5 TSTL RO ; Right hal 
9? $ BNEQU 108 3; No -- answer NO 
1 #O TSTL R1 3; Yes -- left half = 0? 
5 is BNEQU 108 ; No -- answer NO 
50 . s 5 MOVL #YES,RO 3; Answer YES 
ae 464 4 a BRB QEZ_RET : Go exit 
50 00 00 $8 3 #Nn0,RO 3; Answer NO 
46 5 
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; Return with value in RO 
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FUNCTION4:, SESCRIPTION: 
This routine is called by the EXECUTE_REQUEST PL/I routine 
to determine whether or not the running system has MP 
(multiprocessing) capability. 
The value YES or NO is placed in RO upon exit. 
CALLING SEQUENCE: 
CALLS #0,QUAD_EQ_0 
INPUTS: 
None 
IMPLICIT INPUTS: 
EXESGB_CPUTYPE -- CPU type. Assume type 1 = 780. 
EXESGL_RPB -- Address of Restart Parameter Block. 


; OUTPUTS: 


Routine value below. 
IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 
RO . YES if the system has MP capability 


RO = NO otherwise 
SIDE EFFECTS: 

None 

eENTRY MPCHECK, “M<> 
CMPB G*EXESGB_CPUTYPE ,#1 ; 780 processor? 
BNEQ 10$ ; No -= go answer NO 
MOVL G*EXESGL_RPB,RO ; Get Restart Parameter Block ptr 
BBC #RPBSV_MPM,RPBSL_BOOTRS(RO),10$ ; Br if no multi-port mem 
MOVL #YES,RO 3 Answer YES 

108 BRB 20$ ; Go exit 

"  MOVL ~=—s #NO,, RO ; Answer NO 
20$: 
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04 0489 1914 RET 
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; Return with value in RO 
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-SBTTL WRITE_PROC_RECORDS = Write PROCESSES class records 
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FUNCTIONAL DESCRIPTION: 
— Peggy Bae Js ,catioe te write ot a group ot Bes > 
Ae ye containing the data in a PRO collection 
CALLING SEQUENCE: 
CALLS #2,WRITE_PROCS_RECORDS 
INPUTS: 
4(AP) = address of collection buffer 
8(AP) = longword size of a data block (for a single process) 
IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 


As nary class records as are required are written to the 
recording file for this PROCESSES collection buffer. 


ROUTINE VALUE: 

RO = NORMAL, or error status, if any 
SIDE EFFECTS: 

None 
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48A 

if ¢' ENTRY WRITE_PROC_RECORDS, “M<R2,R3,R4,R5,R6,R7,R8,RI,RIO,R11> 

4 § MOVL 4(A S pointes. to collection buffer 

49 6 MOVL CHNR es _HSIZE+MNR pros’ PCTUNTD(R?) RB 

49 964 ; Get num of processes in coll buffer 
494 1965 CMPL W*PROCS_PER_REC,R8 : Need more than 1 class record? 

499 oe8 BLSS jos. : Yes -- go break it up 

4 96 ALLO : oe, -- alloc a descriptor on stack 
4A +43 MULL Ny nine culate, size of data area 

4AD % ADDL2 &#<MNR MELSSRe 2NS1ZE+MNR _prbsk Bg IZE> 

480 19 0 Add in oto hdr and PROCESSES prefix 
4B 97 MOVL R7,4(R2) s : Load addr of coll buff into descr 
484 1972 PUSHL R2 ; Push descriptor address 
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rh WRITE RECORD 
WPR_RET 


- and write the record 
: Go return with status of WRITE_RECORD 
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yo4e006 WRITE_PROC_RECORDS = Write PROCESSES cla ety 7 83:39:32 MONTOR.SRC JMONITOR.MAR; 1 (26) 
4 1976 ; 
rh 1 § :; Break up collection put tes into a group of records and write 
400 1 4 3; each into the recording f e. ALL except the Last will have the 
4CO 1979 ; MNR GLSSV ONT flag set indicating that data for this intervai 
4CO 1980 ; con€inues in the next record. 
ze 13 
ac 19 ; : Register Usage: 
4CO 1985 : R6 = # of rei records to write 
4C0 19 § 3 R7 = collection buffer index pointer 
4CQO 1987 ; R8 = # of processes in the collection buffer; 
4C0 19 3 $ also, # of processes in the final record 
4CO0 1989 ; RJ = pointer to write buffer data area 
04C0 1990 ; R10 = size of data portion of write buffer 
4C0 1991 ; R11 = pointer to write buffer descriptor 
4C 1336 ; 
£8 1382 10 
56 58 OO16'°CF C7 O4C0 1995 ; DIVL W*PROCS_PER_REC,R8,R6 ; Get number of full records to write 
51 56 gp torgt 2 Bees 1336 oat iW PROCS PER ACC ROR! ; paney ote «ot grees mM wee 
W*PROCS_PER_REC,8(AP),R10 ; Get size of data portion of write buff 
= “f a § £} ey 1999 ADDL #<MNR CCS$K-HS1ZE+MNR.PROSK_PSIZE>,R10,R1 
04DA 2000 rs 3 Compute write buffer size 
04DA 2001 ALLOC 8,RO0,R11 ; Get a write buffer descr on stack 
68 51 DO 04E7 200 mMOVL Rf,(R11) : Move in write buff size 
04 AB DF OQ4EA 008 PUSHAL 4(R11) ; Push addr of write buffer ptr 
6B DF O4ED 2004 PUSHAL (R11) : Push addr of write buffer size 
00000000'GF 02 FB OcEr 005 CALLS #2,G*LIBSGET_VM ; Get the write buffer 
03 50 8 O04F6 806 BLBS RO,20$ ; Continue if status OK 
008A 1 eee? 44 208: BR WPR_RET ; Return with status if failed 
OO1A'CF 68 7D OQ4FC 2009 ; MOVa (R11) ,W*PROC_WRI_BUFD ; Save descriptor for later cleanup 
59 04 AB DO 0501 2010 MOVL 4( ‘ ; Get psc to write buffer 
69 67 15 28 0505 2011 MOVC3 #<MNR_CLSSK_HSIZE+MNR_PROSK_PSIZE>,(R7),(R9) 
$309 $013 a<n nt $x. nSize MNR pabsr PLIiEs ATs Undate call butfstee 
<MN + . a c u 
0001.49 00 £2 Os0e 2014 Bess, HANR ELS v_CONT,MNR_CCSSW_FCAGS(R9S, 308 ; Set “continued” bit 
Broth Hh Bel BEE fae? SRS REM LAE A raed CPi Haa LISS PTT tare nse ce 
- 3° 68 6 0319 $619 ADDL2 #MNR_PROSK_PSIZE.R9~ ;"Point to data portion of write buffer 
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; Free the virtual memory occupied by the 
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; Loop until all processes which fit into full records 
have been handled. On h 

R_REC processes from the co} bec 
; the Sf eR. buffer and write 
ortion and the PROC 
uffer will be ident 


fon loop, move 
t 


on buffer to 


he class header 
SSES prefix portion of the write 
cal for all these records. 


Move group of a¢ arse from coll to write 


Spey coll buff 

Stack ptr to wie buffer descr 
urite this record 

Go exit with status if failed 
Loop back to do next group 


ecord for the ‘leftover 
t into one of the full fomeeer, 


Ad ig R1 Get pointer to write buff class ee 
R_CLS$V <font ne. cLssi_ FLAG RID 508 Clear ‘‘continued’’ b 


I 
R PROS PCTREC(R1) : 
3 compute size of data portion 


“Point to PROCESSES $ prefix 
Load # of procs in this record 


‘Leftover’’ data to write? 


; No” -- skip around the MOVC 
; Move leftovers from coll to write buff 


; Allocate a descr for the write 
Get write buff tat? from previous descr 

_HSIZE+MNR _PROSK. *PSITE> R10 

Ove write Sate Length into descr 

3; Stack descr ptr for write 

; Write the last record 

; Leave with status if failed 


write buffer 


Stack addr of write buffer ptr 
Stack addr of write buffer len 
Free the write buffer memory 
Leave with status if failed 
Indicate normal status 


; Return with status 
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if $3 -SBTTL CVT_TO_DELTA = Convert Seconds to Delta 
5 spt itt 
3 , re ; FUNCTIONAL DESCRIPTION: 
587 74 : This routine is called to convert a positive seconds quent ity 
; a ; supplied in a longword to a quadword delta time quantity. 
09 f H 3 CALLING SEQUENCE: 
587 2079 : CALLS #2,CVT_TO_DELTA 
O37 i ; 7 
B2 4 BBs ; INPUTS: 
03 ; o88 : 4(AP) = address of longword containing positive seconds quantity 
82 4 +H : 8(AP) - address of quadword in which to store converted delta time. 
0587 OBS : IMPLICIT INPUTS: 
0587 2088 ; 
B25! 089 ; None 
0587 2090 ; 
Bee) 091 ; OUTPUTS: 
587 O36 3 é 
8287 4 ; Quadword addressed by 8(AP) is loaded with converted delta time. 
0587 2095 : IMPLICIT OUTPUTS: 
0587 836 3 
0587 2097 ; None 
82 7 2098 ; 
587 2099 ; ROUTINE VALUE: 
Bae! 199 3 
287 101 ; None 
0587 19 : 
82 7 103 ; SIDE EFFECTS: 
587 13 3 
0587 2105 ; None 
0587 196 3 
b 7 19 i= 
587 2108 
587 2109 
0000 287 119 -ENTRY CVT_TO_DELTA, “M<> 
00 04 BC rere of 7A 383 112 EMUL #-10*1000*1000,a4(AP) ,#0,a8(AP) ; That's all, folks 
04 §294 2113 RET 
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~SBTTL COMPUTE _BOOTTIME = Compute System Time of Boot 
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FUNCTIONAL DESCRIPTION: 
This routine is called to compute the quadword time value 
representing the absolute time at which the monitored 
(running) systes was booted. This is done by converting 
the EXESGL_ABSTIM value (absolute number of seconds since 
boot) to a negative quadword system time value and adding 
it to the current time (obtained via SGETTIM). 

CALLING SEQUENCE: 
CALLS #0,COMPUTE_BOOTTIME 

INPUTS: 
None 

IMPLICIT INPUTS: 


EXESGL_ABSTIM - Longword containing positive number of seconds 
since boot. 


SPTR = pointer to SYI (System Information Area). 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
MNR_SYISQ_BOOTTIME loaded with boot time in system time units. 
ROUTINE VALUE: 
RO = NORMAL, or failing system service status 
SIDE EFFECTS: 


Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Se Se Se Se Se Ge Se Se Sse Se Se 


None 

-ENTRY COMPUTE_BOOTTIME, “M<R2> 
ALLOC 8,RO,R2 ; Get quadword on stack 
SGETTIM_S TIMADR=(R2) ; Put current time into it 
BLBC ; Exit _if error 
EMUL = #-10#1000*1000, EXESGL_ABS" 1M, #0,RO 


; Get delta quadword system time units 
3 ee. Since boot ; 
ADDL2 (R2),R0 3; Add low-order current time 


ITOR = VAX/VMS Performance Monitor uritite 1 spe 9:24 YAX/VMS Macro v04-00 Page 
you-006 COMPUTE _BOOTTIME = Compute System sea: ) $78 138 83: 33 3 YRONTOR. SRC JMONI TOR .MAR; 1 . 38) | 
4A D 1 ADWC rH ) é gee an high-order current time 

a6 CUD goo "5 bb af 178 MOVL sRes Get po ater to SYI 

A 0 D CB ed! MOVQ ni ~§} 80 -BOOTTIME (R25; Move in boot time 
50 O0000000'EF DO O5CF 217% MOVL RO mi s Indicate success 

D6 2175 10$: 
04 D6 2176 RET 3; Return 
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FUNCTIONAL DESCRIPTION: 
This routine is called to gather certain info about the 
cluster and/or network and place it into the System 
Information Area. 

CALLING SEQUENCE: 


CALLS #0,CLUS_NET_INFO 


9 
4 INPUTS: 
3 None 
3 IMPLICIT INPUTS: 
9 CLUSGL_CLUB - If non-zero, then this node is a cluster member; 
3 otherwise, it is not. 
: SPTR = pointer to SYI (System Information Area). 
0 SCSNODE system parameter <-- SCS node name in ASCII 
8 SYSSNODE logical name -- DECnet node name in ASCII 
0 OUTPUTS: 
None 


IMPLICIT OUTPUTS: 

SYI updated. 
ROUTINE VALUE: 

RO = NORMAL, or failing system service status 
SIDE EFFECTS: 

None 


007¢ 
56 O0000000'EF 00 


ENTRY CLUS_NET_INFO, “M<R2,R3,R4,R5,R6> 
MOVL SPTR,R6 ; Get System Info Area pointer 


> Set MNR_SYISV_CLUSMEM if this node is a cluster member 


° 
° 


IFCLSTR 208 ; Br if a cluster member 
BBCC #MNR_SYISV_CLUSMEM, - ; Else indicate not member 
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5 1 36D 108 ane MNR_SYISW_FLAGS(R6) ,10$ ‘ ef 
: 3 «ee and go n 
00 01 A6 88 E2 EF : 388 BBSS #MNR_SYISV_CLUSMEM, -_ ; ladlcote’s cluster asaker 
SFG 3 MNR_SYI$W_FLAGS(R6S ,30$ 
ae §5u9 7S 
5F4 41 ; 
2f6 rk ; Call SGETSYI to get CPU type and node name (from SCSNODE parameter) 
SF4 2064 
are rf ALLOC 56,R0,R2 ; Allocate local temp storage 
boo} 5529 ; 
p08! ¢3 ; Set up item descriptor for node name 
0601 2250 ° 
62 10 B80 0601 51 MOVW #16, (R2) 3; Move in Length of buff 
02 a2, Tone BF 80 0604 3252 MOVW  #SYI$_NODENAME,2(R2) : Move in item identifier 
04 A2 1C A2 DE Q60A 5 MOVAL EPiRey 8th ) : Move in ptr to buffer 
08 A2 2C Ae DE pene 23 MOVAL 44(R2),8(R2) ; Move in ptr to Length word 
0614 2$ 3 
Bete 2f : Set up item descriptor for CPU type 
614 2259 ° 
OC A2 04 + «B0 ep 60 MOVW #4,12(R2) 3; Mo in | th of buff 
OE A2. 2000 BF BO 0618 3961 MOVW —-#SYIS_ CPU, 14(R2) S Move in ites fdentitier 
10 A230 A2-—séCO# po18 $6 MOVAL SB ERET «1 tRG? ; Move in ptr to buffer 
14 A2 34 A2 DE 06 6 MOVAL $F RS} o20KR ) ; Move in ptr to Length word 
18 A2 D4 0628 64 LRL 24(R2) 3; Indicate end of item List 
a 0628 65 SGETSYIW_S ITMLST=(R2) 3 Get the CPU type & SCSNODE node name 
03 50 8 36 E 96 BLBS RO,40$ 3; Continue if status OK 
0082 «(31 0641 67 pin BRW CNI_RET : Go exit if error 
26 A6 «6030 A2-—s~i0 0644 $9 "  MOVL «=—s« 48 (R2) ,MNR_SYISL_CPUTYPE(R6) ; Pick up CPU type 
Bete re ; Now process node name 
0649 2273 ° 
53 04 A2 0649 74 MOVL 4(R2),R3 ; Set up ptr to Ist byte of stri 
54 08 A2 0D bese 75 MOVL BUND) oR ; Set > oer to length word — 
64 «O«#B 651 6 TSTW (R4) 3; Check for null node name 
43 2 0633 73 BNEQ 70$ : Br if not null 
65 79 ; 
655 Q ; SGETSYI returned a null node name, so try to get the 
b2 ; : DECnet node name by translating logical name SYSS$NODE. 
65 7 
65 4 ALLOC 15,R2,R3 ; Get the result buffer on stack 
ret; 5 ALLOC 2,R0,R4 3 «+. and a word for actual length 
oer § STRNLOG_S LOGNAM=W*SYSNOD_NAM, RSLBUF=(R2), - 
af 8 RSLLEN=(R4), DSBMSK=#°B11 
684 0 : Translate SYSSNODE i tem tabl 
3F 50 £9 0684 5591 BLBC ——RO, CNI_RET c Gots tt acter seep nln tes. 
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7 9 
50 00000629 o3 B} iH 38 cnr . #SS$_NOTRAN,RO bec? logical name found? 
96 Ae 7¢ 4 6 95 CLRQ MNR_SYIS$ST_NODENAME (R6) i Otherwise, clear out node name 
ag 7C 069 38 CLRQ — ata NODENAME+8(R6) ; .....4- 
11 069 9 BRB 3 «ee and go exit 
898 599 
69 0 : A node name has been fés.ad. Now eliminate leading underscore and 
24 1 ; trailing double colons if present. 
69 08 : At this point, a = addr of first character of node name, and 
69 4; = addr of a non-zero word length field 
Sh oar 
BFE, 78 
63 5SF 8F 91 069 09 CMPB #*A/_/,(R3) ; Is 1st character of string an _ ?? 
9 12 069C 10 BNEQU 80$ 3 No == go check for trailing colons 
3 be 069 11 INCL R3 : Yes =~ redefine string address ... 
64 8B gon 318 80s: DECW (R4) 3 «ee and Length to eliminate _ 
5 64 3C 0O6A 314 ‘ MOVZWL (R4),R5 ; Get current length of string 
55 FE_A345 9E O6A 315 MOVAB =2(R$)CR5],R5 ; Compute addr of end of string -2 
65 3A3A 8F B11 O6AA 418 CMPW #*A/23/, 085) : Are last 2 characters a 
is O6AF 3] BNEQ 90$ ; No == go move string to SYI 
64 O02 A pea) 318 908 SUBW #2,(R4) ; Yes -- shorten string by 2 bytes 
wm a” a6 64 3 eet} 3 Y ; —. inh. BNR SUES af NODENAME (R6) ; Get length of node name 
peer : § MNR_ gyist. *NOBENARE> 1 (RG) 3 ee. and actual name string 
O6BF : 4 CNI_SUCC: 
50 Q0000000°EF 00 poet ; 2 oe Bite NORMAL , RO : Indicate success 
04 0666 2327 ~~ RET ; Return 
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| C7 ~SBTTL ADV_HOM_ITEM = Advance to next display item for homog 
C7 ++ 
C7 
34 FUNCTIONAL DESCRIPTION: 
8 C7 This routine is called by PL/I routines to advance the 
0 Cf current (homogeneous) class to the next item for display. 
| O6¢7 CALLING SEQUENCE: 
9 Cf? CALLS #1,ADV_HOM_ITEM 

8 Cf INPUTS: 

8 tf 4(AP) = address of CDB pointer for current display class 

06C7 ; IMPLICIT INPUTS: 

06C7 

9 None 

8 OUTPUTS: 

None 


IMPLICIT OUTPUTS: 


CDX$B_IDISCONSEC and CDX$B_IDISINDEX fields updated to 
indicate the next item to Be displayed. 


ROUTINE VALUE: 
SS$_NORMAL 

SIDE EFFECTS: 
None 
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C909 09090000 INN NO DS DS DS DS DS DD DD TTT TUT Be BS BS BB BB NAIA IAI 
MEW SO ODNAU EWN O OD NAMEN SOO NAME WWI OO ONAU EWN OUOONOUS WHO” 
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.ENTRY ADV_HOM_ITEM, “M<R2,R3,R4> 
° ; Bump CDX$B_IDISCONSEC so that next requested item is chosen for display. 
6C “ 
52 96 BC DO 06C MOVL a4 (AP) ,R2 : Get CDB address 
52 2A2 00 066 MOVL CDBSA_CDOX(R2) ,R2 ; Get CDX address : 
07 A 96 06D1 INCB COX$B-IDISCONSEC(R2) ; Point to next consecutive item 
06 A2 O7 A 91 06D4 CMPB Seat eteET Ray ), = ; Past final item? 
0609 COX$B_IDISCT(R2) 
04 15 0609 BLEQ 10$ ; Br if not 
07 A2 01 90 Deb MOVB #1,CDX$B_IDISCONSEC(R2) ; Restart consec no. at Ist item 
6DF : 
O6DF ; Now update CDX$B_IDISINDEX to be in sync with the new value 


i 
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FW OC COONAN Ewin" O00 


MOVZBL 


FFS 
ADDL 
SUBL 
SOBGTR 


MOVB 
MOVL 
RET 


1 
ormance Monitor utility i 
Advance to next display i 


; Of CDX$SB_IDISCONSEC. 


ahaa pcre 
R 


“SEP=1 
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; Init bit field size 
3; Init start position 


CDXS$B_IDISCONSEC(R2),R4 ; Get item display consec no. 
RO,R1,COX$W_IBITS(R2),R3 ; Search for next item number 


3,R0 


#1,R3,R 
RO,#COX$S_IBITS,R1 
R4,40$ 


R3,COX$B_IDISINDEX(R2) 


#SS$_NORMAL ,RO 


; R3 contains item number if found 
; Compute next starting ... 

3 eee position and field size 

; Loop until item number is found 


3 ee. and store it away 


3; Normal status 
; Return 


LB BLLBBBPBPLLABPPPBB PADD LLL LLL LLL LT ltl ttt ttt tt tts 


1 
mance Monitor uririt 


J - VAX/VMS Perfor 16-SEP-1984 01:59:24 VAX/VMS Macro V04-00 
v04-000 COLLECTION = Collect into CURRENT Butter -SEP=-1984 3:39:84 MONTOR.SRCJMONITOR.MAR; 1 
4 : -SBTTL COLLECTION = Collect into CURRENT Buffer 
| f : oe 
| , 41 FUNCTIONAL DESCRIPTION: 
7 41 This routine is called to collect data for the current 
7 41 class into the buffer pointed to by the CURRENT register 
8? 41 (R8). The data is obtained either from the running phe 
| ta Qi (Live collection) or from an input recording file (playback). 
O70 2 CALLING SEQUENCE: 
| 
70 41 BSBW COLLECTION 
070 4 
070 4 INPUTS: 
070 4 
070 4 None 
070 


MCA pointer 


If non-STD class, R8 has to have been set up before 
entry to this routine. 


OCOOOCOCOCOCCOOOSOSOOCOOOOCOOOOOOOOOONO 


7 

4 IMPLICIT INPUTS: 

4 4(AP) = address of byte containing class number 
4 Registers: 

0 R6 = CDB pointer 

0 R7 = MRB perater 

8 R8 . CURRENT collection buffer pointer 
0 

0 


Ss 

=) 
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PUPP Be BS BS BB BEE EAI WII 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
CURRENT buffer filled with data for this class. 


On first collection event, MRBS$Q_BEGINNING is loaded with 
the system time of the first collection. 


ROUTINE VALUE: 

RO = NORMAL, or error status, if any 
SIDE EFFECTS: 

Registers RO,R1,R2,R3,R4,R5 destroyed. 
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1 
rmance Monitor ueitity Ig° 
Llect into CURRENT Buffer 5- 


COLLECTION: 


BBC #MRBSV_PLAYBACK ,MRBSW_ FLAGS(R7), 293 If not collecting from 
j vee @ file, go do live collection 


BBS #CDBS$V_STD, CDBS$L_FLAGS(R6),10$ ; Branch if standard class 
; PLAYBACK == Non-standard Class (PROCESSES) 
- BSBW COLL_NONSTD ; Fill coll buff from playback file 


37 43 A?) «(03~—s«é@E' 


08 4B A6 «004~—CO#EO 


80 30 
7¢ 50~—s«éE BLBC +h COLL_RSB : preseture EOF error possible here 

> ae BRB COLL_CO ORM : Go join common collection code 
; PLAYBACK == Standard Class 
: Pick up (with MOVC5) the collection buffer previously placed in a 
: fixed location by the PL/I read routine. 
10$: 

0600 8F BB PUSHR #*M<R9,R10> : Save regs 9 and 10 


59 04 AB DO MOVL MCASA_ {NPUT _PTR(R11),R9 ; Get base of read buffer 


; Compute size of collection buffer 


C MOVZWL gee ght R10 Get hength of a data block 
1 BBC DB$V_HOMOG, CDBSL_ FLAGS(RG), 208 r if hetero 
5A 000000C8 8F 4 MULL2 NAKELTS S,R : One data Cronk for each element 
SA 08 0 ADDL2 #MNR ~HOMSK _PSIZE,R10 5 Chip in with prefix size 


20$: 
5A OD CO 


5A 00 69 6B 2 
0600 8F BA 
ea 11 


ADDL2 #MNR_CLSSK_HSIZE,R10 ; Add in header size 


MOVCS MCASL_INPUT_LEN(R11),(R9),#0,R10,(R8) ; Move to CURRENT buffer 
POPR #*M<RI,R10>~ : Restore regs 9 and 10 
BRB COLL _COMM 3; Go join common collection code 


> LIVE COLLECTION 
> Create argument List (on stack) for SCMKRNL call to FETCH. 
30$: 


ADDL3 #MNR_CLSSK_HSIZE,R8,-(SP) ; Stack addr of beg of variable 
; «e- portion of collection buffer 


FWA WANN) 3 Ss SS SS SS GQ OOO 


SSN NNN NNN NNN SNS SNS ot 
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56 DD «(074 PUSHL R6 : Stack CDB address 
Qe DD 4 PUSHL #2 :; Top off List with ar 
54 E—E 00 oe} MOVL SP,R4 ; Remember arg List addr “Tor * SCMKRNL 
24 : Fill collection buffer header 
68 04 B8C 90 0747 MOVB @4(AP) ,MNR atti TYPE(R8) Collect class number into buffer 
1 As B4 0748 CLRW = MNR_CLS$W_FLAGS(R8) s Sere out flags ... 
A B4 74E CLRW MNR “CLS$W- “RE SEAVERCRB) 3 eee and reserved word 


| 
| 
| 
| 
SA 20 A6 3 
OA 4B AG 05 E 
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Foe 56 
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30 AB O04 ef 

67 03 A8 

07 43 A? 01 
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Lect into CURRENT Butter -SEP=-1 


SCMKRNL_S FETCH, (R4) 


ADDL #12,SP 

BLBC RO, COLL_RSB 
COLL_COMM: 

MOVL 

MOVW 

TSTL MCASL_COLLCNT(R11) 

BNE 

CMPB 

BNEQU COLL 

MOVQ MINA 

BC #MRBSV RECORD 

CALLS #0,WRITE_HEADER 


COLL_RSB: 
RSB 


1986 02:0 


Indica 
NCASL | EBNSEC _REC(R11), mnk erssae *RESER 


9:66 AX/VMS Macro V04-00 
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; Call FETCH to fill in rest of buffer 


Restore stack 
NOPRIV or other error possible here 


: ney oy ¥~ for it eat. + Live collectio 
puccees lvl statu 
3 Store (low-order word of) 
3 «ee Consec no in coll buff 
i First ont hee 

ust return 


No oo 
a4 (AP) grass FIRSTC(R11)'; First class? 
_ULS$Q_STAMP(R8), mresa Becinuingtays 
MRBSW_ FLAGE(RID, COLL oRSB 


urn 
start time of collection 


Exit if not recording 
; Write recording file header 


; Return 


eee eee SS... 4 
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: Since the PROCESSES class gan have class data which spans several 
; records, loop reading all PROCESSES records for this interval, 

3 SegraSenen a the data portions of the records into the collection 
3; bu “ 


oO 


OLL_NONSTD: 


0780 8F PUSHR #*M<R7,R8, ; Save registers 


BB R9,R10> 
AB 00 MOVL. MCAS$A_INPUT_PTR(R11).R9_: Ge ,base of read buffer 
68 69 6B 2 MOVC3 MCASL INPUT LEN(R11),(R9),(R Ist we rec to CURRENT buffer 
3F 01 a9 00. E11 MNR_CLS$V_CONT,MNR CL Ssw_ Feacsirg). 30$ ; Done if only 1 class rec 
58 6B CO ADDL MCASC_INPUT_LEN(R11),R8 ; Point to end of coll buffer 
Sa C59 C181 ADDLS #<MNR-CLSSK “ASI ZESMNA PROSK. PSIZE>,R9,R 


; Point to PROCESSES data in read buff 
CLRL R7 ; Ensure high-order word is clear ... 
3 ee. for later use 


: Read the next PROCESSES class record for this interval 


10$: 
7E Q0000000'8F 00 MOVL #SKIP_TO_CLASS,=(SP) 3; Indicate next class rec is desired 
5E 0D PUSHL SP ; Stack indicator for call 
sored 4 Fe ey #1,READ_INPUT ; pees Bone class record 
09 32 AB 03 E1 BBC #MCASV EOF ,MCASW_ FLAGS(RI1) Bog oo Continue if not end-of-file 
50 00000000'8F 00 MOVL #MNRS _PREME EOF ,RO™ : Else indicate error ... 
“m 208 BRB 408 3 eae “ond go return 
50 59 0D C1 ; ADDL3 #MNR_CLSS$K_HSIZE,R9,R Point to processes prefix in read buff 
57° 20 A6 60 AS MULW3 MNR_PROSL_PCTREC (ROS RO atu BLKLEN(R6) «R Mei 
3; Cale size of nex 
a a a 2 MOVC3 R7,(R10),(R8) ; Next chess rec to CURRENT buffer 
a a. 6 ADDL2 R7.R8 Point to end of coll buffer 
CA 01 AI 00 E0 30s BBS #MNR. .CLSSV_CONT ,MNR _cLssi. FAGS(RS). 10$ ; If cont, go read next 
50 00000000'EF 0 a MOVi NORMAL, RO : Indicate normal status 
0780 8F BA "- POPR) ss #*M<R7,RB,RI,R10> : Restore registers 
05 RSB 3; Return 
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«SBTTL LL_HETERO_STATS = Fill the STATS Buffer 
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FUNCTIONAL DESCRIPTION: 


This routine is called to fill in the STATS buffer 

for the qerrers (heterogeneous) class, given the current 
and previous buffers. For COUNT-type data items, each 
STATS item is computed as CURRENT minus PREVIOUS; for 
REVEL etree data items, each STATS item is merely copied 
from CURREN 

the counts. 


CALLING SEQUENCE: 
BSBW FILL_HETERO_STATS 


INPUTS: 
R6 = address of CDB (Class Descriptor Block) 
R9 = address of PREVIOUS buffer 


R10 = address of buffer block 
IMPLICIT INPUTS: 


PERFTABLE - table describing each data item, indexed by 
item number ( * entry size) 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
STATS buffer is filled. 
ROUTINE VALUE: 
None 
SIDE EFFECTS: 
Registers RO,R1,R2,R3,R4,R5 destroyed. 
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DDD DEDE DED DDE OED DDD DOD DD DS DDS DS DD DDS DS DDD TITTY 


7E 
7E oo 
7E 
7E 
oe FILL_HETERO_STATS: 
0800 8F BB O7E PUSHR #*M<R11> ; Save reg 11 
50 18 A6 DO O7E MOVL COBSL_ECOUNT(R6) ,RO ; Get number of items to fetch 
51 1C A6 DO O7F MOVL CDBSA_ITMSTR(R6) ,RI1 ; Address of item-number string 


| 
R8& = address of CURRENT buffer 


— 
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MONITOR = VAX/VMS Performance Monitor Utilit 16-SEP-1984 01:59:24 VAX/VMS Macro V04-00 Page 67 
v04=000 FILE HETERO STATS  e FaLL cheCSTATS’ But SoSEP=19B6 O2:07154 TMONTOR eae imoNGfoncmar:1 29° (8f, 
2 OD C1 4g} 640 ADDL SRNR CLS SK NST TE RO -RE ; Cale start of items for PREVIOUS 
OD Ci O7F 641 ADDL #MNR_CLSS$K MBL AE RGR ; Cale start of items for CURRENT 
54 08 AA 00 O7FD 986 MOVL MBPSA_STATS(R10) ,R4 ; Get pointer to STATS 
5B D4 0 27 108 CLRL R11 ; Clear loop counter 
55 81 9A 8 i 645 MOVZBL (R1)+,R5 ; Get next item number 
i C4 3 978 ULL #IDBSK Lene ry RS 3 Compute index into IDB table 
55 o0000'cF45 SE 0 64 MOVAB WPERFTABLELRSJ,R5 : Address of IDB for this item 
OBA ots CASE IDB$W_ISIZE(R5) ,<20$,30$,40$>,W ; Select on proper size 
O81A 2650 20S: 
0000'8F OA AS Bi peta 65 CMPW AREOU.THPE SRD) ACOUNT TYPE ; Is this item a count? 
0D i 8 65 NEQ 5$ 3 No == assume level type 
64 83 68 83 08 8 $UBB3 (R2)+,(R3)+, (R4) ; Compute byte diff into STATS buff 
0 18 08 3 54 BGEQ 23$ ; Br if difference OK 
64 94 BB : $2? o3$ CLRB (R4) ; Counter has decreased; use 0 value 
84 64 9A O82A 2657 MOVZBL (R4),(R4)+ ; Zero-extend to longword 
45 11 082d 2658 BRB 50$ 
O82F 2659 25$: 
84 83 9A O082F 2660 MOVZBL (R3)+,(R4)+ ; Move CURRENT byte Level to STATS 
82 95 0832 2661 TSTB (R2)+ 3; Auto-increment PREVIOUS buffer 
3E 48611 «0834 066 BRB 50$ 
0836 2663 30S: 
0000'8F OA AS B81 0836 2664 CMPW ADEOU_ TYPE ERD? ACRE FIO ; Is this item a count? 
OD \¢ 083C 2665 BNEQ 5$ 3; No -=- assume Level type 
646 83 82 A bez5 666 SUBW3 (R2)+,(R3)+,(R4) ; Compute word diff into STATS buff 
02 18 084 667 BGE 33$ ; Br if difference OK 
64 B4& 0844 2668 CLRW (R4) ; Counter has decreased; use 0 value 
0846 2669 335: 
84 64 3C 0846 2670 MOVZWL (R4),(R4)+ ; Zero-extend to longword 
29 11 0849 2671 BRB 50$ 
0848 ore 35$: 
84 83 3C 0848 267 MOVZWL (R3)+,(R4)+ 3 Move CURRENT word level to STATS 
82 B5 pase 674 TSTW (R2)+ 3; Auto-increment PREVIOUS buffer 
22. 11 085 675 BRB 50$ 
085 676 40$: 
0000'8F OA AS 861 085 677 CMPW IDBSW_TYPE(RS) ,@COUNT_TYPE ; Is this item a count? 
0B ig 085 678 BNEQ 45$ 3; No -- assume level type 
84 83 82 C3 OQO85A 2679 SUBL3 (R2)+,(R3)+,(R4)+ ; Compute long diff into STATS buff 
14 18 tH 680 BGEQ 50$ ; Bre if difference OK 
FC AS =—D4 «(086 681 CLRL =-4(R4) ; Counter has decreased; use 0 value 
OF 11 bee ? § 65s BRB 50$ 
10 AS) 95 3 684 TSTB IDBSB_FLAGS(R5) zsIs this a computed item? 
4 68 2685 BEQL 47$ sbranch if not 
0010 30 6A 26 $ BSBW $f 1 COMPUTED ITERS otherwise need to do some special calc. 
oS re S 47s BRB $ scontinue 
84 83 00 O86 689 MOVL (R3)+,(R4)+ ; Move CURRENT Longword level to STATS 
82 D5 Baee 230 50s TSTL (R2)+ 3; Auto-increment PREVIOUS buffer 
8B 5B 650 «OF 2 74 $36 AOBLSS RO,R11,10$ 3; Loop until done 
0800 BF BA 78 269 POPR  #*mcRi{> : Restore reg 11 
5 7C 2694 RSB 3 ee. and return 
7D 2695 
7D 2696 


yoee006 FILE MCTERD STATSE ef onjterusil iy put 'S-SEp-19R6 63:07:56 FMONYOR. cae amoNG fonemar:1 29° (88, 


087D 2697 
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+e 
GET_COMPUTED_ITEMS 


: Computed items are items which are not recorded, but are transformations 
; of other items. This routine makes the appropriate transformations and 
: loads the STATS buffer for computed items. 


‘ 


Currently, the only type of computed item rs by Monitor is 
ee percentage item. Here are the steps involved in adding a new percentage 
em: 


address of current longword in PREVIOUS buffer 
address of current lLongword in CURRENT buffer 
address of current longword in STAT buffer 


- The item is flagoed as a percentage by jnehusteg 
FLAGS=IDBSM_PCNT in the BLDIDB for the item. The item 
{ype should be LEVEL. 
The next two items re) Lowine the percentage in the class 
nu be used to calculate the percentage value. The formula 
s 


Percentage value = (Iteml * 100)/Item2 
For example, in the case of XQPCACHE percentages, 
Item] = Cache hits and item2 = (Cache hits + Cache misses) 
The items used to calculate the percentage must be lLongwords. 


- The percentege and item2 will be displayed; item! will 
not be displayed. 


Bete Ge Ge Ge Ge Sse Se Ge Ge Se Ge Ge Se Ge Se Ge Se Ge Ge 


4 pee items currently may only be included in Standard Heterogeneous 
classes. 


To add a new type of congytes item, define a new bitmask for IDBSB_FLAGS 
(for-instance IDBSM_RATIO) and add the necessary code to do the new 
computation. GET_COMPUTED_ITEMS will be called by FILL_HETERO_STATS anytime 
the IDB$B_FLAGS field is nonzero, so this routine is oné place you will want 
to add new code. Depending on the nature of the item, you may need to add 
code elsewhere. (for-instance, TEMPLATE, to prevent display of items used 
in the calculation, and INTAVE to do special processing to obtain the 
average for the item). 


‘C9 Cd Cd Cd Cd Cd Cd OD 09 Or) Gd CD CD Cd OD Cd Cd Cd Cd Cd GO Od Cd Cd OD Cd 09 Cd Cd C9 CO. GD CD. C9 C9 C9 GD CD CO CD CD CDC 
SSNS 


BRe Scere roo SC OCCU OCC O OOO OOO UU UO UCU CUCU OCCU CUCU UU U CCU UUCUUCUUES 


; Computed items are included in the item count for a class, but are not 
3; included in the CDBSW_BLKLEN value. 


GET_COMPUTED_ITEMS: 


CSOOOSSOOSOOCOOOOSOSGOOCOOSOSOOO OOOO OSOOOOOCOOOOOOOCOOOCOOOoOOoOOO 


00900090900 G9 00 Go C0 00 G0 CD00 


7 

7 

7 

’ 

7 748 : If this is a percent. compute the long dif for the tok touting two items 

7 749 ; and do the calculation to end up with a level in the stats buff. 

, fe 3; Also, increment the stats buff pointer but not current or prev. 

OOCO 8F 8B 7 fe PUSHR #*M<R6,R7> ;save gone registers So we can use them 
1710 a5 00 €1 7 BBC #IDBSV_PCNT, IDBSB_FLAGS(R5), 20$ sbranch if not a percent 
64 D4 f CLRL (R4) ; zero longword for this pcnt item in STAT buff 

3 63 62 C3 7 SUBL3 (R2),(R3),R6 ; Current minus previous for iteml into R6 


1 
- VAX/VMS Performance Monitor utility 1 mites 9 01:39:34 pide § Macro V04-00 Page 70 
FILL_HETERO_STATS = ill the STATS Buf 5-SEP-1 30%: MONTOR.SRCJMONITOR.MAR; 1 (36) 
57 04 A3 04 Ag C § 7 § SUBL3 4(R2),4(R3),R7 ; Current minus previous for item2 into R7 
5 D 7 TSTL R7 ; Is the sum nonze 
0B 1 2 8 : BEQL 10$ : branch if it is zero to skip percent calc. 
$8 £68 ; now create a percentage value: (item! * 100)/(item! + item2) 
56 00000064 Bf C4 0896 £66 k MULLE #100,R6 ; 
64 56 , ) GF 0 te7 108 DIVL R7,R6, (R4) smove the percentage result into the STAT buff. 
84 «6S ‘i 163 a TSTL (R4)+ sauto-increment the STAT buffer pointer. 
00CO 8F BA eA res ; POPR #*M<R6,R7> jrestore the registers 
5 A £08 RSB sreturn 
O8A8 276 
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v04=000 FILE PUSTATS BUFF ee Fit PESTAYS Butter  ScSEP21984 62:07:56 EMONTOR. SREIMONG TOR maR;1 | 29° 5} 

44 ~SBTTL FILL PCSTATS_BUFF = Fill PCSTATS Buffer from STATS Buffer 

558 ++ 

774 

of) FUNCTIONAL DESCRIPTION: 

56 Fill the PCSTATS buffer with integer values representing 

ore tenths of percent for each item in the STATS buffer. 

, INPUTS: 

7 § R6 = CDB pointer 

7 R10 - Buffer block pointer 

4 2 IMPLICIT INPUTS: 

f i STATS buffer containing levels to be ‘‘percentized."' 

789 ; OUTPUTS: 

790 

791 None 

re 

79 


IMPLICIT OUTPUTS: 
PCSTATS buffer filled with integer values representing 


~ 
Oo 
= 


on | Be Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Ge Ge Se Sse Se Sse Ge Ge SeSs Ve Se Sse Sete 


(G0 09 C9 C9 C9 C9 CD CD C9 OD OD Cd CD OD CD Cd OD C9 CO CO CD CD CD CD CO COCDCDOSCOCOCOODODODCDCRODOD mx 
PPPS PPPPSEEPP PEE rrrrr rrr rrrrrrrrrrrrrrrr “vz 


OOO & OM 080909 69 60 0d CD G0 OD Cd Cd Od Cd Cd CO CO. GD CO CD CD CO CO COCO COCO COCO CDODCDCOCOCDOCDCDCDCDCD 6-41) 


x 
DOOCOCOCOCOCOOCOCOOOOOCSOSOSOOOOSOSOOOOOOSOOOOOOOOOOOOOoOoOOoOOoO CUUU™ 
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P38 tenths of percent. 
798 ; ROUTINE VALUE: 
aot None 
B0¢ SIDE EFFECTS: 
Spe Registers RO, R1, R3, R4 destroyed. 
806 
Ht ILL_PCSTATS_BUFF: 
53 18 AA 00 809 MOVL MBPSA_PCSTATS(R10),R3  ; Load PCSTATS buffer pointer 
54 08 AA dO - 10 MOVL MBPSA~STATS(R10) ,R& ; Load STATS buffer pointer 
50 18 A6 00 11 MOVL COBS$L_ECOUNT(R6) ,RO 3; Get number of elements 
51 D4 = \¢ 108 CLRL 1 ; Clear accumulator 
51 8 c gi4 "  ADDL2. (R4) +, R1 : Add next item 
FA 50 «SOF 15 SOBGTR ; Continue until STATS summed 
54 08 AA 00 C 318 MOVL MBPSA_STATS(R10) ,R4 3 Re-load STATS buffer pointer 
50 18 A6 OD CO 281 MOVL COBSL_ECOUNT(R6) ,RO 3 «+. and number of elements 
53) Oo C4 18 TSTL Ro 3; Zero sum? 
08 12 cs i? 208 BNEQ 308 ; No == go calc percentages 
83 & 00 C 1 ; OVL (R4)+,(R3)+ 3; Yes -- steely move zeroes 
FA 50. OF CB : SOBGTR RO,20$ t see into PCSTATS buffer 
0€ 17 ¢ T oe RB 40$ t ie. and go exit 
63 84 O000003E8 BF CS O8D | Sewiey MULLS #1000, (R4)+, (R3) ; Multiply value by 1000 ... and 
8351 C6 D : DIVL2 R1,(R$)+ : Divide by sum, Leaving tenths of % 
F250 =F 0B SOBGTR RO,30$ ; Continue for all items 


N11 
VO4=000 FILLSPESTATS.BUFF = Fitt PESTATS Buffer ‘S-SEp=19Be BE:01:5¢ YMONTOR.SRESMONS TOR ma; P2° (29, 


os OaDE 3859 8’ nse ; Return 
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~000 COMPUTE. Yons Be O2i01i04 RCIM aoe of 


- Statistical Computat -SEP-19 MONTOR.SRCJMONITOR.MAR; 1 (38) 
-SBTTL COMPUTE_STATS = Statistical Computations on STATS 


TAY 


: FUNCTIONAL DESCRIPTION: 


Cfoatt each count item in the STATS buffer with a computed 

peat ne” gorse! rate per second. Also, replace each item in 
N and MAX buffers with the corresponding item from the 

erere utter if it establishes a new minimum or maximum value. 


INPUTS: 
R6 - 
R7? = 
R8 - CURRENT be bul ter pointer 
R9_ = PREVIOUS buffer pointer 


R10 - Buffer block pointer 
R11 = MCA pointer 


IMPLICIT INPUTS: 
STATS buffer 


HOMOG_TYPE = word containing item type code of current 


| 
cps pornrer 
item for homogeneous class. 


PERFTABLE - table describing each data item, indexed by 
item number ( * entry size). 


MCASL_INTTICKS = clock ticks during interval just finished 
OUTPUTS: 

None 
IMPLICIT OUTPUTS: 


CoCo 
TR nn ro “nan 


0.09 09 09 09 G9 00 Cd CD 09 G0 CD Cd Cd C0 CD Cd OD CD CD OD G9 00 CD CD CD 00 09 CD GD CD CD CO CO CD OD CD CDCD i"s 
ovo0V9 SVoVTVTVTVTCTVCTCTTCCCC9C0C00000"0"C0"C0"0"0"0"0"0"0"0€8 


Sete Se Se Ge Se Ge Ge Se See Ge Ge Ge Ge Ge Fe Ge Fe Ge Se Ge Se Se Ge Sse Ge Se Ge Se Ge Se Ge Ge Se Ge Ge Se Gets Ge Se Ge Sse Se Ge Ge Ge Ge 
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aoe 3 Each count element in STATS buffer converted to floating rate/second. 
8DF 71 Elements in MIN and MAX buffers updated if new min and max 
4 ts values were achieved in the interval just completed. 
8DF 74 ; ROUTINE VALUE: 
8DF 75 
8DF 76 None 
8DF 77 
8DF 78 ; SIDE EFFECTS: 
8DF 79 
oe 0 Registers RO,R1,R2,.R3,R4,R5 destroyed. | 
8DF ¢ | 
44 ? COMPUTE_STATS: | 
0300 8F 6B Of H 5 PUSHR #*M<R8B,R9> ; Save regs | 
ER $i Load registers for upcoming buffer manipulations 
| 
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V04=000 COMPUTE, STATS © Stacistical Commutartons S-SEP=1984 02507154 FMONYOR. Cae THONG TOS MaR:1 Fo (Say 
E ; | 
E 85 
E 90 108: | 
2 08 AA D0 E 91 MOVL MBPSA_STATS(R10) ,R2 ; Load addr of first STATS item 
58 460C AA «DO sOOBE 36 MOVL MBPSATMIN(R10) RE : Load addr of first MIN item 
59 10 AA 00 EB 9 MOVL MBPS$A_MAX(R10) ,R9 3; Load addr of first MAX item 
29 1C A6 4 EF 94 MOVL COBSALITMSTR(RO) .RO ; Load addr of item-number string 
5 18 Ab OD rs 95 MOVL CDOBSL_ECOUNT(R6) ,R ; Load number of items in STATS 
51 D4 8 44 36 208: CLRL R1 ; Clear loop counter | 
0B 4B A6 =05~«OE1:«O8F9 2898 ~=—S—t—<‘<—~Citié«éSWE #CDBSV_HOMOG, CDBSL_FLAGS(R6),25$ ; Br if heterogen 
0000'sr' O0E2"CF 81 OBFE 2899 CMPW «WHOMOS. TYPE-ACOUNT. TYPE ; I$ this homog item a count? | 
18 12 090 00 BNEQU 30$ 3; No -= assume level 
3 11 Bane $4 oss: BRB 50$ 3; Yes -- go process count 
14 4B A6 QO €E1 0309 308 ‘ BC #COBSV_CTPRES,CDBSL_FLAGS(R6),30$ ; Skip ayes check if no counts 
55 80 9A O90E 2904 MOVZBL (RO)+,R5 : Get next item number 
55 11 C4& 0911 2905 ULL #IDB$K_ILENGTH,R5 ; Compute index into IDB table 
55 OO0O0'CF45 9E 0914 2906 MOVAB W*“PERFTABLECRSJ,R5 ; Address of IDB for this item 
0000°8F OA AS 81 O91A 2907 CMPW IDBSW_TYPE(R5) ,ACOUNT_TYPE 3 Is this item a count? 
1A 13 4 0 443 : BEQLU 50$ : Yes == go compute rate 
4 3I9 : Update MIN and MAX buffers for this item (Level). 
09 3@ J 
09 913 30$: 
6841 6241 D1 09 914 CMPL (R2)CR1), (RB) CR1I 3 Check minimum 
05 18 0927 2915 BGEQ 40$ : Branch if not less 
6841 6241 00 8 ; 318 40s MOVL (R2)CR1),(R8)CR1II : Else insert new minimum 
6941 6241 0D! O3 918 x CMPL (R2)CR1),(R9)CRII 3; Check maximum 
33. +15 O9 919 BLEQ 7 : Branch if not more 
6941 6241 DO 0935 2920 MOVL (R2)CR1],(R9)CR1II : Else insert new maximum 
, Bagh $3¢ BRB 70$ 3 - and go loop 
093C 29 4 : Compute rate/second for this count item, replacing count in 
093C ase 3; STATS buffer. 
anys 925 ; 
093C 29 § 
pat 927 50$: 
54 6241 4E 093C 2928 CVTILF (R2)CR13,R4 ; Get floating value over interval 
55 08 AB 4E 0940 Hs CVTLF MCASL_INTTICKS(R11),R5 : Get floating ticks over interval 
55 000043C8 8F 46 0944 2930 DIVF #100 ; Get floating seconds over interval 
6241 54 55 47 0380 o32 DIVF R5,R4, (R2)CR1) 3; Floating rate/second into STATS 
B20 2 § : Update MIN and MAX buffers for this item (count). 
95 $35 ; 
6841 6241 51 095 9 § CMPF (R2)CR1],(R8)CR1) 3: Check minimum 
05 18 95 9 BGEQ 60$ ; Branch if not less | 
6841 6241 5§ ae 3 8 60s MOVF (R2)CR1),(R8)CR1I 3; Else insert new minimum 
6941 6241 51 095¢ 2940 | CMPF  (R2)CR1),(R9)CR1) ; Check maximum 
05 15 0961 2941 BLEQ 70$ : Branch if not more 
6941 6241 50 st 236 70$ MOVE (R2)CR1],(R9) CRI) 3; Else insert new maximum 
8) 51 53 F2 368 944 ; AOBLSS R3,R1,20$ ; Loop for each item in STATS 
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; Restore regs 
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-SBTTL UPD_PC_MIN_MAX = Update Percent Min/Max Buffers 


+ 
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FUNCTIONAL DESCRIPTION: 
Replace each item in the PCMIN and PCMAX buffers with the 
corresponding item from the PCSTATS buffer if it establishes 
a new minimum or maximum value. 
CALLING SEQUENCE: 
BSBW UPD_PC_MIN_MAX 
INPUTS: | 
R6 = CDB pointer | 
R10 = Buffer block pointer 
R11 = MCA pointer 
IMPLICIT INPUTS: 
; at yh net ag pele, percent values derived from | 
: y collected levels. 
; OUTPUTS: | 
None | 
IMPLICIT OUTPUTS: | 
Items in PCMIN and PCMAX buffers updated according: y. 
ROUTINE VALUE : | 
None | 
SIDE EFFECTS: | 
Registers RO,R1,R2,R3,R4,R5 destroyed. | 
992 UPD_PC_MIN_MAX: | 


fae we fw fae we ae we fe we fe ew ww lola lalolalalelelelelelelelelelelelelelelelelelelelelelelelelealelololo'- wah” 
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99 
53 18 AA 00 994 MOVL MBPSA_PCSTATS(R10) ,R3 ; Load PCSTATS ptr 
54 1C AA 00 995 MOVL MBPSATPCHIN( RIO) RE ; Load PCMIN ptr | 
55 20 AA 00 99 MOVL MBPSA_PCMAX(R10) ,R5 ; Load PCMAX ptr 
50 18 A6 00 99 MOVL COBSL_ECOUNT(R6) ,RO ; Get element count 
52 D4 998 CLRL Re ; Clear loop counter 


F 2 
- VAX/VMS Performance Monitor Urih sy a ie 
-MIN_MAX = Update Percent Min/Max ~SEP=1 
9 ; 
3 : Replace minimum and maximum (if 
9 o 
9 4 10$: 
9 5 CMPL (R3)CR27,(R4)CR2] 
3 A § Hn ee cr 2] (R4)CR2] 
98F 3008 208: . 
98F B08 CMPL (R3)CR2),(R5)CR2) 
994 10 BLEQ 30$ 
0996 3011 MOVL (R3)CR2),(R5)CR2) 
B oie 30$: 
3444 az AOBLSS RO,R2,10$ 
F 38 RSB 


AX/VMS Macro V04-00 


Be 02:01:54 
necessary) for each item 


3 Check minimum 

; Branch if not less 

3; Else insert new minimum 

3; Check maximum 

; Branch if not more 

; Else insert new maximum 

; Loop for each item in PCSTATS 


; Return 


r 
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es -SBTTL DISPLAY_INIT = Init for Display Output 
9A 
9A 
9A 
9A 


~ 


> 
oa 


FUNCTIONAL DESCRIPTION: | 
This routine performs initialization for DISPLAY output. 
CALLING SEQUENCE: 
CALLS #0, DISPLAY_INIT 
INPUTS: | 


None. 
O9A0 IMPLICIT INPUTS: 
Q9A0 


MRBPTR = pointer to MRB (Monitor Request Block) 
MCAPTR = pointer to MCA (Monitor Communication Area) 


OUTPUTS: 


Ooo 
oowoooooowon7 
>>Prrrrr>rrr>r 
OOO 
QDOOCCCCCOOCOOoooo°oo 
FWNWNNWIWIWIWIarononopnonpononononon 
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REGISTER USAGE: 


R7 = MRB pointer 


| 
| 
| 
None | 
R11 = MCA pointer | 


09A0 
BBA e BARCHAR loaded with appropriate bar character. 
BeAg Be SYSOUT_TYPE loaded with display output device class. | 
O9A0 304 The four classes are: | 
Q9A0 304 
O9A0 304 DEC_CRT | 
O9A0 304 VTS® 
O9A0 304 OTHER_VID 
re es HARDCOPY (including disk file) 
| 
poe Be MCASV_VIDEO set if display device is a video terminal. | 
B3A5 2 MCASV_GRAPHICS set if display device is a VT55. | 
O30 be ATTRIBMSK (DEC_CRT video attribute mask) cleared. | 
9A 05 IMPLICIT OUTPUTS: 
O9A 05 
O9A0 0g None. 
9A 6 
9A 6 ROUTINE VALUE: 
O9A be 
Boag ? RO = NORMAL or failing status from SCRPKG routine. 
03h 8 SIDE EFFECTS: 
9A 6 
O9A 6 
: 
7 
07 
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QO0000000'GF 02 
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DISPLAY. INIT = Init for Display Output aie 38 83 37 ‘8 MONTOR.S RCIM ONITOR.MAR;1 . (41) 
ENTRY DISPLAY_INIT,  “M<R2,R3,R7,R11> 
CURL W*ATTRIBMSK : Turn off DEC. CRT attributes 
MOVL MR ot G. R7 : peed MRB pointer 
MOVL MCAP R11 oad MCA pointer 
BBSS PARBSV. DIS_CL_REQ,MRBSW_ FLAG (Ri? 5 
5$: Indicate display cleanup required 
BSBW COMMON_INIT ; Do initialization common with SUMMARY 


TSTL MRBSA_DI 
BEQL 10 

PUSHL MRBSA_DI 
PUSHL 

CALLS We GrScR 
BLBS 

BRW tt 


hh td hh I QO OOOO OOOO OOOCOCOOCOOOOOOSOSOSOSO 
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; Establish SCRPKG output stream 


SPLAY(R7) 
SPLAY(R7) 
$SET_OUTPUT 


Bete Ge te Ge Ge Ge 


(R2),R pa 
MCASW “FLAGS(RTI) °40$ : 


bees and assume 


Is there a display file-spec? 
No == continue 

Yes -- stack ft for SET_OUTPUT 
eee alon 
Establis eee stream 
Continue if sta 


s OK 
Go exit if stRSSet OUTPUT failed 


Establish bar character, sysout device type. 
Set MCASV_VIDEO bit if a video terminal. 
Set MVASV_GRAPHICS if a VTSS terminal. 


Start out with default bar char 


Stack addr o 
Get screen — ee type) 
| font tous if sta 


s OK 
; Go exit if SERSSCREEN. INFO failed 


Save grag 6 ges device type 
(R2) ,30$ f not video, 


«es and continue 


Set hardcopy type 
ee. and a a0 teks def bar char 


is it a VT55 ? 
go check for other types 


with a stream identifier 


other video’’ sysout type 
Llocate 9 bytes tor screen info 
screen info buffer 


eep goin 
A ag tiateote wide 


Yes -- indicate VT55-style graphics 


: josteate vT5x series, 


10$: 

MOVB  #DEF_BAR,W*BARCHAR 

MOVB #OTHER_VID,W*SYSOUT_TYPE 

ALLOC 9,R1,R2 

PUSHL Rsk 

CALLS #1,G*SCRSSCREEN_IJNFO 

BLBS  R0.20$ 

BRW 116$ 
20$: 

MOVB  SCRS$B_DEVTYPE(R2) 3 

BBC #SCRSO_SCREEN, SCRSL 

BBSS  #MCASV-VIDEO, 
st BRB 40$ 

MOVB = #HARDCOPY,W*SYSOUT_TYPE ; 

BRB 100$ 
40$: 

CMPB ss #DT$_VT55,R3 

BNEQU 

BSS § #MCASV_GRAPHICS ,MCASW Fudestatis 50$ 
50$: 

MOVB #VTSX,W*SYSOUT_TYPE 

BRB &3 ssf 
60S: BBC #SCRSV_DECCRT,SCRSL _FLAGS(R »,708 ; 


special bar ¢ 
If not DEC neRT.. 


keep going 
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SEP=19 
’ EC_CRT.W*SYSOUT_TYPE 
#DT$_VT100,R3 
#DEC_CRT,W*SYSOUT_TYPE 
90 
#DT$_VT52,R3 
100$ 
#VT5X,W*SYSOUT_TYPE 
#V1D_BAR,W*BARTHAR 


MOVE _BARS 


SCRDSC 
#1,G*LIBSSET_BUFFER 


£39388 AX/VMS Macro V04-00 
01:24 


MONTOR.SRCJMONITOR.MAR; 1 


Set ae CRT : tel b . 
«+. and go special bar char 
Is it a 7180 ? 

No == more checking 

Yes -- set DEC CRT 

eee and go set special bar char 


; Is it a vT52 ? 

; No == take def bar char and type 
; Yes -- indicate VT5x series 

; Indicate special bar char 


; Move bar char into several places 


; Kick off buffering mode for the Screen Package 


: —_ this routine's buffer addr 


et buffering mode 


; Return with RO = status 
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: : } § -SBTTL SUMMARY_INIT = Init for Summary Output 
Age B80 
A B 160 ; FUNCTIONAL DESCRIPTION: 
AnB 16¢ : This routine performs initialization for SUMMARY output. 
ange 164 : CALLING SEQUENCE: 
AaB 166 : CALLS #0, SUMMARY_INIT 
OAcB 168 : INPUTS: 
OASB 3169 ; 
pA2e A 3 None. 
OA 1% : IMPLICIT INPUTS: 
pA28 Ve : MRBPTR = pointer to MRB (Monitor Request Block) 
OAdB 3176 > OUTPUTS: 
wee 178 : BARCHAR loaded with appropriate bar character. 
OAdB 180 : SYSOUT_TYPE loaded with display output device type. 
ttt 186 : ATTRIBMSK (DEC_CRT video attribute mask) cleared. 
0A5B 184 : IMPLICIT OUTPUTS: 
OASB 3185 ; 
i ae 
ASB 188 : ROUTINE VALUE: 
gaze 196 : RO = NORMAL or failing status from SCRPKG routine. 
0A5B 198 : SIDE EFFECTS: 
OASB 3193; 
OASB 3198 x6: 
AB 196 > REGISTER USAGE: 
ASB 138 : R7 == MRB pointer 
ASB 3199 ; 
A5B 00 ;-- 
Age 3502 
0080 124 § eENTRY SUMMARY_INIT, “M<R7> 
272B8'CF D4 OASD 5 CLRL W*ATTRIBMSK ; Turn off DEC_CRT attributes 
57 Opgongoo" Er 08 A61 $ MOVL MRBPTR,R7 : Load Om polater 
0043 A? (09 «=E2 «(0A68 BBSS §§ #MRBSV_SUM_CL_REQ.MRBSW_FLAGS(R7), 
A6D 3 5$: : Indic summary cleanup required 
03 43 A7 99 3 A BBS #MRBSV_DISPLAY .MRBSW_FLAGS(R °F : shie init if already done 
00 0 Ms 19 BSBW COMMON, INIT ; Do initiacization common with DISPLAY 
A? 12; 


' 
eee 
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v04-000 SUMMARY_INIT = Init for Summary Output -SEP-1984 733% inc 3) 


1: 
2:01: MONTOR. SRC RCIM MONITOR.MAR; 1 


we 13 ; Establish SCRPKG output stream 
Me 318 0g 
28 A?) =D COA? 13 : PUSHL MRBSA_SUMMARY(R7) 3 ng Bmpr filespec for SET_OUTPUT 
01 ODD OA? 18 PUSHL @# 2 em ong with a stream identifier 
00000000 ° GF Oe fe A7A 1 cALLS BS’ Sog nese! OUTPUT 3 Estabtis output stream 
03 E A81 0 BLBS RO,20$ 3; Continue if status OK 
0020 21 A 5 BRW ; Go exit if SCRSSET_OUTPUT failed 
A 7 8 
A87 4 ; Establish bar 
AB? 8550 * 
A87 $ 208: 
OOOS'CF 2A 90 OA87 8 MOVB #DEF_BAR,W*BARCHAR ; ee default bar character 
59 10 OA8C $3 BSBB MOVE” BAR e bar char into several places 
00002615°EF 02 90 pace 0 MOVB #HARBCOPY, SYSOUT_TYPE re oat SYSSOUTPUT dev type as hardcopy 
00 43 a7 (05+ «=OE2 «(OAD 31 BBSS  #MRB$V_DISP_TO_FILE, ARBSU. FLAGS(R7) , 30$ 
OA9A 3 ; Indicate output to file 
OA9A 30$: 
he 
OA9A 36 3 Kick off buffering mode for the Screen Package 
ene 
QOOO2ZOAF'EF 7F OQOAQA 3239 PUSHAQ SCRDSC 3; Push this routine's buffer addr 
00000000'°GF 01 AA $79 CALLS #1,G*LIBSSET_BUFFER ; Set buffering mode 
242 ; Return with RO = status 


character, sysout device type. 


————__—_—----—] 
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MOVE _BARS: ; Move bar char into several eer 
MOVB 


AA 44 COMMON_INIT 
ME BE 
or t Do initialization for DISPLAY and SUMMARY options. 
AA 4 
OO8D'CF 01 DO ee 29 MOVL #SSS$_NORMAL,W*PTS_STAT ; Start off request with clean status 
QAAD 5 : 
aM 38 | ; Set up footing display Line with appropriate words 
AAD 3955 ° 
23F7'CF 23F5'CF DE AAD 2§ MOVAL W“*BLANK_STR,W*FOOTP 3; Indicate —— string for PLAYBACK 
07 43 A? 03 E1 OAB4 5 BBC #MRBSV -PLAYBACK MRBSU_ FLAGS(R7),10$ ; ntinue if no PLAYBACK 
23F7'CF 23C4'CF DE ad 28 108 MOVAL W*PLAY_ STR,W*FOOTP 3 Indicate piavontk string in footing 
23FB'CF 23F5"CF DE OAC 60 : MOVAL W*“BLANK_STR,W“FOOTS Indicate blank string for SUMMARY 
07 43 A? 02 E1 AC? 61 BBC #MRBSV _SUMMARY MRBSW _FLAGS(R7) 208 Continue if no SUMMARY 
23FB'CF 23D3°CF ODE OA ¢ 208 MOVAL W*SUMM~STR,W* FOOTS 3; Indicate iunMARY string in footing 
o3FF'CF 23F5°CF DE OAD 64 , MOVAL W*BLANK_STR,W*FOOTR Indi ate ——_ string for RECORD 
07 43 A? 01 E1 OADA 65 BBC #MRBSV RECORD Hs FLAGS(R7) 0$ ; Continue i no RECORD 
23FF'CF 23E5'CF ODE ADE 66 _ MOVAL W*REC_STR,W*FOOT : Indicate RECORD string in footing 
05 OAE 68 5 ie : Return 
OAE7 70 
OAE7 71 
i 
7 
7 
7 


oO 

> 
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26EA' CF OOOS'CF 90 OAE7 W*BARCHAR ,W* TOPBAR ; Move bar char into TOP disp ay line 
00000000 ‘EF 0005'CF 90 pace MOVB W“BARCH AR. BAR R1 3 eee and into SYSTEM class 
00000000 'EF 0005'CF 90 OAF 4 MOVB W“BARCHAR ,BAR Dates 
0000000‘ EF 0005'CF 90 0B00 5 MOVB W*BARCHAR ,BAR S weeks 
QO000000"EF O00S'CF 90 0B09 76 MOVB W*BARCHAR ,BAR4 2. 
OON0000'EF O005'CF 90 0B12 77 MOVB W*BARCHAR,BARS | sense 
OOOO0000'EF O005'CF 90 paie 78 MOVB W*BARCHAR,BAR | eee 
QOOO0000'EF O00S'CF 90 24 79 MOVB W*BARCHAR,BAR F ceane 
0O°EF 0005 'CF 90 OB2D 0 MOVB W*BARCHAR ,BAR8 i usswne 
"EF 0005 '°CF 90 0836 MOVB “BARCHAR,BA £ ewes 
Q0000000'EF OO00S'CF 90 OB3F HY MOVB W*BARCHAR,BAR10 | peter 
00000000'EF O00S'CF 90 pest 3 MOVB W*BARCHAR.BAR11 ree 
00000085 ‘EF 00000000 ‘EF DE oe3) 85 MOVAL SYS_BOX_STR_G,SYS_BOX_STR “even Choose graphic box str (SYSTEM) 
00000083"EF  O0000000'EF 80 5¢ 86 MOVW  SYS"BOX"STR7LEN_G;SYS =BOK. STR.LEN ; ... and its Length 
2A nt 3 He bs es SASCHAR, ~aDEF Lt BAR” Bae tt"done. use the def bar char? 
QOOO0008S'EF  OQOO00000'EF ODE had 9 MOVAL SYS_BOX_STR_H,SYS_BOX_ sR ADDR Choose hardcopy box str 
00000083 'EF 00000000‘ EF 80 pare 39 108 MOVW SYS_BOX “STR “LEN. H,SYS_BOX_STR "LEN: eee and its length 
05 0886 92 RSB 
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~-SBTTL FILL DISP_BUFF = Fill Display Buffer 
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FUNCTIONAL DESCRIPTION: 
This routine is called to fill the display buffer with values 
to be presented to FAOL for display of the screen for the current 
class. The address of the CDB for the current class is passed 
as the first parameter to this routine. The second parameter is 
the address of a quadword into which this routine will store the 
time stamp from the most recent collection buffer. 

CALLING SEQUENCE: 
CALLS #2,FILL_DISP_BUFF 

INPUTS: 


4(AP) = address of a pointer to the CDB (Class Descriptor Block) 
for the class to display. 


8(AP) = address of quadword in which to store the time 
stamp from the most recent collection buffer. 


IMPLICIT INPUTS: 
MCAPTR = pointer to MCA (Monitor Communication Area) 
MRBPTR = pointer to MRB (Monitor Request Block) 


PERFTABLE - table describing each data item, indexed by 
item number ( * entry size) 


SoOCOOCCSOOOOOOCOOOCOOOOOOOoOSOSSoOO UO™ 


FAOSTK = buffer into which to store values for later FAOL call. 
OUTPUTS: 


Quadword pointed to by 8(AP) is filled with time stamp from 
most recent collection buffer. 


IMPLICIT UUTPUTS: 
Display buffer (FAOSTK) buffer is filled. 
For the non-standard class (PROCESSES), 
MCASL.PROC_DISP is filled with the count 
of processes to display. 

ROUTINE VALUE: 
RO = SS$_NORMAL 

SIDE EFFECTS: 


None 
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: f iH : REGISTER USAGE: 
B87 : RS = pointer to current lLongword in FAOSTK 
B87 24 3 RE = address of CDB for class to display 
B87 55 3 R® = scratch 
B87 2$ 3 fh19 = address of buffer block 
: 4 : ; R11 = address of TM4, a temporary stack area 
B87 25 : Other registers: see below 
0887 60 ; 
0887 61 ;-- 
OBay $368 
OFFC +3 f rt: ENTRY FILL _DISP_BUFF, “M<R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11> 
56 04 8C DO 0B89 $09 MOVL a4 (AP) ,R6 ; Load CDB pointer 
4 rt ALLOC TM4$K_SIZE,RO,R11 ; Allocate local temp storage 
5A 2E A6 00 OB9IA +4 MOVL CDOBSA_BUFFERS(R6),R10  ; Load address of buffer block (MBP) 
OF 48 A6. =6005-sé€E F 0 BBC #COBSV_HOMOG,CDBSL_FLAGS(R6),10$ ; Br if not homog class 
50 32 A6 DO OBAS 3371 MOVL  CDBSA_CDX(R65,R ; Get CDX address 
50 07 AO 9A OBA? 36 MOVZBL COXSBIIDISCONSEC(RO),RO ; Get no. of curr display item 
D7 OBAB 7 DECL ; Decrement to use as index 
5A 6A40 DO OBAD 74 MOVL (R10) CROJ,R10 ; Get MBP ptr for homog class 
ae 
0BB1 3377 : Return time stamp from most recent collection buffer to caller. 
OBB] 3379 
1 360 10$: 
9 6A DO OBB1 3381 MOVL MBPSA_BUFFERA(R10),R9  ; Assume BufferA is current 
04 48 A6 01 —=SE1_—s« OBB4 $36 BBC #CDBSU_SWAPBUF ,CDB$L_FLAGS(R6),20$ ; Br if so 
04 AA 00 for $67 208: MOVL MBPSA_BUFFERB(R10) ,R9 ; BufferB is current 
08 BC O3 AD 7D pees 385 : MOVa MNR_CLSSQ_STAMP(R9) ,a8(AP) ; Give current time stamp to caller 
68 18 A6 00 te 387 MOVL COBSL_ECOUNT(R6), - ; Pick up element count 
OBC6 3388 TM4$L-ECOUNT(R115 
04 AB 1C A6 DO OBC6 3389 MOVL CDOBSA_ITMSTR(R6), = i eee and item string addr 
0BCB 3390 TM4SA_ITMSTR(R115 
ae 
0BCB 38 ; Note == at this point, R10 contains MBP pointer; element count 
Ba Be 3 and item string address are in TM4$L_ECOUNT and TM4$A_ITMSTR. 
CB 3396 * 
03 48 A6 =2004~—CéE: pee $7 BBC #CDBSV_STD,CDBSL_FLAGS(R6),50$ ; Branch if non-standard class 
0100 =3=«=—31 4 399 BRw FOB_STD ; Go process standard class 
D 401 50$: 3; Non-standard class (PROCESSES) 
00 42 A6 91 D 4 § CMPB COBSB_ST(R6),#REG_PROC ; Regular PROFE RSC? display? 
37 +13 = OBD 4 BEQL FDB_REGPROC ; Yes --_go fill dis lay buffer for it 
D9 3404 3; No =~ TOP PROCESSES display 
ee Hb 
D9 34 5 : Calculate the two quantites BPU and GMIN for use Later in computing 
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the size of the bar graph: 
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= floating longword, no of bar chars per unit of output value 


GMIN = integer Longword, min value which graph can represent for this class 


BBS #CDBSV_PERCENT,CDB 

CVTLF CDBSL_RANGE (R65 ,R7 ; 
MOVL § COBSLTMIN(R6),GMIN : 
BRB 70$ : 
CVTLF #100,R7 ; 
CLRL = GMIN ; 
CVTBF  #MAXBARS,R8 : 
DIVF3 R7,R8,BPU ; 
PUSHL R6 H 
CALLS #1,FILL_TOP ; 
BRW FDB_RET ; 


wi tly gg gk ; Check for percent requested 


© percent -=- get grate one, Penge for graph 


; Get minimum value for grap 


Join common code 


100 is range of percent 


greek 
0 is min value of percen 


graph 


Get max bar chars per Line 
Calculate bar chars per unit of output 


Stack PROCESSES CDB pointer 


Fill display buffer for TOP display 
e+. and go return 
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C1 429 ; 
C1 450 ; Fill display buffer for non-standard class (PROCESSES) 
3 ? 1; (regular display). 
C1 4 : ; Register usage: 
+3 434 ; 
C1 435 ; RO = scratch 
p18 4 § 3 R1 = scratch 
C10 3437 ; Re = process index 
0C1 438 ; R3 = process count 
0C1 439 ; R5 = pointer to current longword in FAOSTK 
0C1 440 ; s = address of CDB for class to display 
0C1 441 ; R? = scratc 
0C1 re ; RO = CURRENT collection buffer 
0C10 3443; R10 = address of buffer block 
0C10 3444 ; R11 = address of TM4, a temporary stack area 
0C10 3445 ; 
0C10 3446 
Bea rei FDB_REGPROC: 
59 OD CO OC10 3449 ADDL2 #MNR_CLSS$K_HSIZE,R9 3; Point to PROCESSES prefix 
53. 04 A9 DO OC13 3450 MOVL MNR_PROSL_PCTINT(R9),R3 ; Get process count 
50 O0000000'EF DO OC17 3451 MOVL MCAPTR,RO : Get MCA pointer 
18 AO 53 .~=«©—00 pels $36 MOVL R3,MCA$L_PROC_DISP(RO) : Save count for the display rtn 
59 08 co OC 45 ADDL2 #MNR_PROSK_PSIZE,R9 ; Point to first data block 
52. 01 00 O0C25 Shee MOVL R ; Init loop counter. 
55 08 AA 00 bc 3022 MOVL MBP$A_PR_FAOSTK(R10) ,R5 3; Init FAO stack (display buffer) pointer 
OC2C 3457 ; 
SES 313 3; Move individual items for this process from current data block 
ptse $025 3; in collection buffer to longwords in FAO stack. 
OC2C 3460 
Bee $i6) 108 
50 69 od0 OC2C 3463 MOVL MNR_PROSL_IPID(R9),RO ; Pick up internal PID 
20 A633 7? bcge sece CMPW #MNR_PROSC_EPID,CDB$W_BLKLEN(R6) ; See if we have an EPID 
4 8 0C33 3465 BGEQ 15$ ; Br if we do not 
50 33 A9 00 sot 108 15$ MOVL MNR_PROSL_EPID(R9) ,RO : Take the EPID instead 
85 50 »o0 bcee 238 MOVL RO, (RS) + ; PID to FAO stack 
at 470 ; : : 
OC3C 3471 ; Get STATE cstring pointer 
gee re 
50 O08 Ad 3C ocze tre MOVZWL MNR_PROSW_STATE(R9),RO ; Get state number 
50 O00000000'EF4O DO £40 ace MOVL STATELISTCROJ,RO ; Get the STATE estring, 
02 B61 0C4 47 CMPW #SCHSC_MWAIT,- :; Is the process in MWAIT? 
08 Ad C4A 478 MNR_PROSW_STATE(R9) ; 
3 12 OC4C 347 BNEQI 20% ; No, keep process’ STATE cstring. 
B1 0C4 480 CMPW #MNR_PROSL_EFWM,- : Yes, see if we have an EFWM 
20 A C50 3481 DB$@_BLKLEN(R6S 
2 18 OC5 4 ; BGEQ ; No, sinoly use MWAIT cstring | 
50 O0000000°EF DO OC54 34 MOVL MWAITLIST,RO : Yes, get the generic MUTEX cstring. 
1F £0 0C5B 3484 BBS 7 : Is this is a MUTEX address? 
19 37 a9 C5D 3485 MNR_PROSL_EFWM(R9),20$ ; Yes, keep the MUTEX cstring. 
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50 OQQ000000'EF DO OC60 3486 MOVL RWAITLIST,RO ; No, get the generic RWUNK cstring. 
F Bl 0C67 3487 CMPW #RSNS_MAX,=- ; Is this resource wait code defined? 
37 Ad 0C69 3488 MNR_PROSL_EFWM(R9) : 
OC 1B OC6B 3489 BLEQU 20% ; No, keep the RWUNK cstring. 
50 37 A9 3C OQC6D 3490 MOVZWL MNR_PROSL_EFWM(R9),RO ; Yes, get the resource wait number. 
50 Q0000000°EF40 00 peel $3) MOVL RWATTLISTEROJ,RO ; Get the RWecc cstring. 
0C79 198 208: 
85 50 DO OC79 3494 MOVL RO, (RS)+ 3 «ee and move it to FAO stack 


| 
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c7c £38 3 | 
C7C 5497 ; Get remainder of process items 
ee ae 
57 AAQ 9A C7 500 MOVZBL MNR_PROS$B_PRI(RY) ,R7 ; Get priority (31's complement) 
85 fF 57 3 OC 6 501 uBre 7,831, (R5)+ 3; Complement 1 and neve te FAO stack | 
85 AG D 0C84 35 ¢ MOVQ MNR_PROSO_LNAME(R9) (R5)+ ; Process name cstring to FAO stack | 
85 13 a9 7D OC8B 35 OVQ MNR-PROSO _NAME+8(R9) , (RS) omen 
85 FO AS 9A OC 4 283 woven ~16TRS), (R5)+ ; Length of process name to FAO stack 
85 55—ti«18 3 5 505 SUBL oR5S + ; Address of process name to FAO stack 
85 1B A9 3C 0694 306 MOVZWL MNR_PROSW_GPGCNT(R9),(R5S+ ; Global page count to FAO stack 
57 10 A9 1B A9 Al 0C98 30 ADDW3 MNR~PROSWGPGCNT(R9) .MNR_PROSW_PPGCNT(R9).R 
C9E 8 ; Get sum of global & process page cnts 
. a ee Tt 50 MOVZWL R7,(RS5)+ 3 «e-_and move to FAO stack 
07 1F AQ «900 «EO «(CAT «3510 BS #PCBSV_RES.MNR_PROSL_STS(R9).30$ ; Br if process was resident 
10 CO QOCA6 3511 ADDL2 #16,R5 ; Process non-res; skip next 4 longwords 
85 D4 oy 21§ CLRL (R5S+ ; Clear CPUTIM ptr to indicate non-res 
16 11 OCAB 351 BRB 40$ 3 ee. and continue 
eras 514 30$: > Resident process 
5 23.a9 DO OCAD 3515 MOVL § MNR_PROSL_DIOCNT(R9),(R53+ ; DIO count to FAO stack 
5 27 a9 00 0CB1 316 MOVL § MNR-PROSL~PAGEFLTS(R9),(R5)+ : Page fault count to FAO stack 
85 00 28 A9 000186A0 8F 7A OCBS 351 EMUL #100000, MNR_PROSL_CPUTIM(R9) ,#0,(R5)+ 
OCBF 218 ; Mlate ticks to quad time val & move to FAO 
i ta Bue < pce 23% 108 SUBL3 #8,R5,(R5)+ 3 ee. and move ptr to it into FAO stack 
50 20 A6 3C¢ oce3 $31 MOVZWL CDBSW_BLKLEN(R6) ,RO ; Get length of a data block 
so 3 ¢o oc 5 ¢ ADDL2 RO,R ; Point to next (process) data block in coll 
FF5C 52 O01 53 + #«2F1 OCCA 35 ACBL R3,41,R2,10$ ; Loop to move next process to FAO stack 
31 OCDO 3524 BRW FOB_RET ; ALL processes done ... go return 
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CD 3 
$8 ; $ : Fill display buffer (FAOSTK) for standard classes. 
; Register usage: 
EHD vent 
CD 531 3 RO = scratch, address of current item number 
CD 5 § 3 Ri = scratch 
CD 533; Re = data item index 
CD 534; R35 = address of statistics buffer from buffer block 
ase o39 8 R4 = address of IDB for current data item 
CD 5 § 3 R5 = pointer to current longword in FAOSTK 
OCD oat RG = address of CDB for class to display 
OCD 5 8 3 R7 = scratch 
OCD 539 ; R8 = statistic code (ALL =0, CUR=1, AVE=2, MIN=3, MAX=4) 
OCD 540 ; R9 = scratch 
OCD 541; R10 = address of buffer block 
OCD 246 3 R11 = address of TM4, a temporary stack area 
Ocps 38ca 
Mas 545 FDB_STD 
gee ts 
OCD 548 ; For homogeneous class, store number of elements to display 
OCD3 3549 ; (for use in Later display routines). 
Shh ae 
08 48 A6 «€2005—CCE? O¢b3 226 BBC #COBSV_HOMOG, CDOBSL_FLAGS(R6),10$ ; Br if a heterogeneous class 
50 32 A6 DO OCD8 3554 MOVL CDBSA_CDX(R6) ,RO ; Get CDB extension for HOMOG class 
1¢ AO} 68 DO OCcDC «(3555 MOVL  TM4$LTECOUNT(R11), - : Store number of elts to display 
Beep 228 108 COX$L_DCOUNT (RO) 
6B 05 OCEO 3558 TSTL TM4$L_ECOUNT(R11) ; Any elements to display? 
03 12 pees 559 BNEQ 20$ ; Br if have some 
0184 31 OCE& 3560 BRW FDB_RET 3; Else go exit if none 
OCE7 3561 20$: 
SCE? 3868 
OCE7 3564 ; If AVERAGE or ALL statistic requested, calculate floating elapsed 
OCE7 3565 ; seconds from start of monitor request to time of most recent collection 
OCE7 3566 ; event. Store it on the stack for later use. 
OEE? 3868 | 
00 42A6 Yi ace? 288 CMPB GpGSE_ST(RG) PALL _STAT ; ALL stats requested ? 
06 13 «OCEB 0 BEQL 0$ ; Br if yes 
02 42 A6 91 OQOCED 3571 CMPB COBSB_ST(R6),#AVE_STAT ; Was AVERAGE stat requested ? 
29. = 12 ft 278 308 BNEQ 40$ 3; No -- skip following calculation 
57 QO000000°EF 00 Fe 574 MOVL MRBPTR,R7 ; Get temp pointer to MRB 
51 07 a9 00 CFA ef? MOVL MNR_CL§$Q_STAMP+4(R9),R1_; Get high order bits of time 
50 Zao 67 C CF 16 SUBL3 MRBSQ_BEGINNING(R7) ,MNR_CLS$Q_STAMP(R9),RO ; Compute elapsed time si 
1 04 A7 09 D 57 SBWC mRBSO BEGINNING+4(R7) .RT ; Get high order difference 
a 2 @ *¢ 0037 0 8F B OD 8 EDIV #10000,R0,R0,R1 : Turn time into milliseconds 
0 5 D 9 7 CVILF =RO,R ; Floating milliseconds 
OC AB 50 0000457A BF 4 D1 0 DIVES #160 RO, TM4SL_FLTSECS(R11) ; Save floating seconds on stack 
pic 35 3... for later use 
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: Execute special routines if this is the SYSTEM class 


/VMS Perf 
DISP_BUFF 
DIC 3 
DIC 4 
DIC 5 6 
pic 35 § 
39 48 AG =08-sé€ bie 2 8 _ BBC #COBSV_SYSCLS,CDBSL_FLAGS(R6),55$ ; Br if not SYSTEM cl 
. ; 6r no class 
00 42 AG 91 Op 1 3 ? CHB DBSB_ST(R6) ,#ALL_STAT ; ALL stats requested ? 
3 Br es 
OD ; 591 ALLOC <4*ECOUNT_SYS SINGLE>.RO-RS : Single stat -- get dummy buffer 
0265 31 90 c 23% o08: BRwW FDB_SYS_SINGLE j se. and branch to special rtn 
Op F 394 " — ALLOC «= <MBPSK_SIZE+<4*4*ECOUNT_SYS_ALL>>,RO,R10 
D54 95 ; ATloc dummy MBP and gtats buffers 
0054 3596 i «ee pointed to by R1 
00001209"EF 16 0054 3597 JSB FDB_SYS_ALL ; Pre-process the tySTEM class 
BBA GE S58 
55 Q0000103"EF DE ODSA 3600 MOVAL FAOSTK,RS ; Load addr of Gteolay buffer 
58 4246 9A 0061 ibe MOVZBL CDB$B_$T(R6),R8 ; Load requested statistic 
D65 3603 ; 
Spee 604 ; If single statiscic (mot ALL) requested, calculate and store two quantities 
pbee oR? 3; for later use: 
0D65 $09 : BPU = floating Longword, no of bar chars per unit of output value 
p063 one : GMIN = integer longword, min value which graph can represent for this class 
0065 3610 * 
00 58 D1 OD65 3611 CMPL R8,#ALL_STAT ; ALL requested? 
28 «613 «0068 ol¢ BEQL 3; Yes -- continue 
OE 45 A6 00 £0 OQD6A 361 BBS #COBSV_PERCENT ,CDBSW_QFLAGS(R6) ,60$ ; No -- check for percent reques 
50 3C A6 4E OD6F 3614 CVTLF CDBSL_RANGE (R65 .RO ; No percent -- get floating range for graph 
OOOOOOOA'EF 38 A6 DO OD73 3615 MOVL GDBSL _AINCRG) .GAIN ; Get minimum value for graph 
OD 11 43 918 60s: BRB 0$ ; Join common code 
50 00000064 8F 4E OD7D 3618 : CVTLF #100,R0 : 100 is range of percent graph 
OQOOOOO0OA'EF 04 ran res 70$ CLRL GMIN ; 0 is min value of percent graph 
51 28 4C ODBA 3621  CVTBE #MAXBARS,R1 : Get max bar chars per Line 
00000006'EF 51 0 47 433 ? ¢ DIVF3 RO,R1,BPU ; Calculate bar chars per unit of output 
0095 3624 ; 
ae: ° 5 ; For homogeneous class, determine item type for use below. | 
o098 6 5 
0095 $6 8 80S: 
1¢ 48 A6 «=605~séE;* +54 : 4 BBC #CDBSV_HOMOG, CDBSL_FLAGS(R6),90$ ; Br if a heterogeneous class | 
52 32 A6 00 DOA ° 1 MOVL CDBSA_CDX(R6) ,R2 ; Get CDB extension for HOMOG class | 
53 O8 A 9A 009 6 5 MOVZBL conse IDISINDEX(R2) RS ; Get item index for this disp event 
54 04 BB4S 9A ODAD 3634 MOVZBL @TMGSK_ITMSTR(RII)CR3),R& ; Load IDB item number | 
4 11 gs DA 635 MULL #10BSK aL Ene ri RG : Compute index into IDB table 
54, 0000°CF44 SF ODA $636 MOVAS WAPERFTABLECRGS-R4 : Address of IDB for this item | 
OOEO'CF OA AG 8B DBO 36 MOVW IDB$W_TYPE(R4) ,W*ITEM_TYPE ; Save item type for use below 
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DB 39 ; 
DBs 879 3 Loop once for each element in this class. Pick up transformed value for 
dB 641 ; desired statistic from appropriate buffer within collection buffer 
dB org ; block. Do computation on transformed value if required, and place 
+ oh ; whole and fractional portions of result into display buffer (FAOSTK). 
DB 645 
DB 968 90$: 
68 07 ODB 64 DECL TM4$L_ECOUNT (R11) ; Set up number of elements to 
ee ot8 3 «+. display as a loop Limit 
50 04 AB DO ODB 64 MOVL TM4SA_ITMSTR(R11),RO ; Address of item-number string 
52 4 ODae 929 see ace CLRL R2 3; Clear element index register 
12 48 A605 0 +4) $36 “BBS #COBSV_HOMOG, CDBSL_FLAGS(R6),10$ ; Br if a homogeneous class 
54 80 A OoC 65 movzgt (RO)+,R4 : Get next item number 
54 11 C64 pote 654 MULL #10B8SK Lewes R4 ; Compute index into IDB table 
54 QOO0'CF44 SE ODC 655 MOVAB W*“PERFTABLE R45,R4 ; Address of ID8 for this item 
OOEO'CF OA AS BO Bock 028 108 MOVW IDB$W_TYPE(R4) ,W*ITEM_TYPE 3; Save item type for use below 
poe 028 CASE R8,<F_ALL,F_CUR,F_AVE,F_MIN,F_MAX>,L ; Select on requested statistic 
ODE 660 F_ALL: 
ODES 3661 FICUR: 
09 45 A6 = 00 «6©€O «(ODE 66 BBS #COBSV_PERCENT ,CDBSW_QFLAGS(R6),10$ ; Br if percent requested 
53 08 AA bo ODER 366 MOVL §MBPSA_STATS(R10) ,R3 ; Load addr of STATS buffer 
0104 0 ODEC 3664 BSBW JNTORFL ; Process an integer or floating value 
OA 11 34 roe 108 BRB 0$ 3 eee and continue 
53 18 AA DO ODF1 667 MOVL MBPSA_PCSTATS(R10) ,R3 3; Load addr of PCSTATS buffer 
59 6342 D0 ODFS 3668 MOVL (R3)CR2),R9 3; Load tenths of % value 
74 10 ODF9 3669 BSB PCTEN 3 Process a tenths of % value 
ODFB 3670 20$: 
58 05 ODFB 3671 TSTL R8 ; Was ALL statistic requested? 
50 12 ODFD ore BNEQ COMMON 3; No -- join common code 
ODFF 367 ; Yes -- continue to AVE 
ODFF 3674 F_AVE: 
09 45 A6 «600 «60 «CUODFF «63675 BBS #COBSV_PERCENT, CDB$W_QFLAGS(R6),10$ ; Br if percent requested 
14 AA 8 E04 676 MOVL MBPSA_SUM(R10).R3 ; Load addr of SUM buffer 
007; £08 367 BSBW NTAVE ; Process an integer average value 
1 11 943 ore 108 BRB 0$ 3 eee and continue 
53 $e AA DO OE0D 3680 MOVL MBPSA_PCSUM(R10) ,.R3 3; Load addr of PCSUM buffer 
51 000: O'EF OD —11 3681 MCA ; Get MCA pointer 
57. OC Al 61 C3 0E18 36 ; SUBL #1.mcagl SOLLCNT (RI) .R7 : Get no of colls, don't count Ist 
59 «6342 ra. 34 6 DIVL R7,(R3)CR2),R ; Get average tenths % value 
48 10 : 2 6 4 ses BSB PCTEN >... and process it 
38 DS OE24 36 § TSTL R8 3; Was ~ statistic requested? 
4 12 O€ 6 BNEQ COMMON 3; No -- join common code 
: ? $ = : Yes -- continue to MIN 
09 45 A6 «00 = =2E0 SCO 690 ~ 8B #COBSV PECERT -ERSU_OFLAGS (AG) » 108 ; Br if percent requested 
53 OC AA ° E2D 3691 MOVL MBPSA_AIN(R10),R ; Load addr of MIN buffer 
see E31 636 BSBW JATORFL ; Process an integer or floating value 
A 11 : r hh 108 BRB 0$ 3 ee. and continue 
53 1C AA DO 0E36 3695 MOVL MBPSA_PCMIN(R10) ,R3 ; Load addr of PCMIN buffer 
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§ MOVL (R3)CR2],R9 ; Load tenths of % value 

08: BSB PCTEN ; Process a tenths of % value 
§ r TSTL = RB : Was ALL statistic requested? 
0 BNEQ COMMON 3; No == join common code 
1 5 mans 3; Yes == continue to MAX 
: "BBS RBPBAIRAX AT ee BSw_ aterg rm ge 10$ ; a” My paccent requested 
4 MOVL MBPSA 0).R Load addr of MA 
5 BSBW perce : Process an AB y or “floating value 
$ 108: BRB 3 eee and continue 
: " MOVL = MBSA BCMAX(R10) .RS ; Load addr of PCMAX buffer 

MOVL (R3)CR2I,R9 : Load tenths o value 
9 BSB PCTEN 3; Process a tenths of % value 
§ COMMON: ommon return point from CASE 
BBC #I1DB$V_PCNT, 1DB$B_ FLAGS (R4S° 10$ :branch if it is not a pent 

4 INCL RO | increment index into item table 
; 108 INCL R2 3 increment index into data buffer 
f "ACBL «ss TM4$L_ECOUNT(R11),#1,R2,FDB_BEG ; Loop once for each element 
9 FDB_RET: 
0 MOVL #SS$_NORMAL ,RO 3; Indicate success 
1 RET 3 eee and return 
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; PCTEN = Transform an integer tenths of percent value to a whole integer 
; percent value and an optional integer tenths’ ‘remainder’ 
value. Place result(s) in display Pe (FAOSTK). 


data item index 

address of source statistics buffer 

ep e of current longword in display buffer 
code for requested statistic 

tenths of % value (input) 


pe) 
~ 
nnn 


85 59 3 =#10,R9,(R5)+ ; Compute whole percent value 
R8 Requested ALL statistics? 

Yes == continue 

No == - do ae graph calcs 

ees and get ou 


Os 
BSBW CALC_BAR 
BRB 208 ~ 


MULL3 = #10,-4(R5),R7 
SUBL3 —-R7,R9, (R5) + 


So 
Wo oBouo 
NPP OfLUoO>PY 


Need fraction for tabular display 
Into display buffer 
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20$: 


; INTAVE = Transform an sycoger sum of Level values or counts sete an 
; average size/collection or rate/second. Place whole 
and optional fractional parts into display but ter (FAOSTK). 


scratch 

data item index 

address of source statistics butter 

address of IDB for current ite 

eaeress of current longword Me display buffer 
scrat 

oeee Mg requested statistic 

sc 

R11 = ths nal of T T™M4 

TM4SL_FLTSECS = floating seconds from start of monitor request 
to most recent collection event. 
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766 INTAVE: 
76 BBC #IDBSV_PCNT, IDBSB_FLAGS(R4),7$ ;branch if it is not a percent 


4 3 :I1f it is percent, compute the average based on the sums of item! and item2 
: 5 
R 


25 10 A& 00 


oo 
mm 
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) z;Zero the iten{ #19 hqnguors in Fao buff 
57 00000064 8F 9% A3 3)CR2),#100,R7 Sum for item1*100 i 
R7 sconvert to floa 
59 08 AB R3) 


CR2],R9 zssum for (Trent iten2) into R9 


(R 

( 

7 

( 

9 $ 

$ iskip divide if so 

9,R9 sconvert to float 

9,R7 scompute floating avg 
7,(R5) sstack whole part for fao 
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FILL_DISP_BUFF = Fill Display Buffer -SEP-1984 02:01:24 CMONTOR.SRCIJMONITOR.MAR; 1 (50) 
EAC 3780 5$: 
DS OEAC 3781 TSTL (R5)+ sincrement display buff pointer 
11 5A f 4 BRB 25$ yand move on 
EB 784 7$: 
57. 6342 4E OEB 785 CVTLF = =©(R3)CR2],R7 ; Get floating sum 
0O000'S8F OOEO'CF 681 OEB4 37 § CMPW W*ITEM_TYPE,#COUNT_TYPE ; This item a count? 
06 \¢ €BB 37 BNEQ 10$ 3 No -= assume level typ 
57 OC 4 EBD ree DIVF TM4SL_FLTSECS(R11),R7 ; Yes == get floating Hd rate/second 
1 11 pee 789 BRB 208 3 «ee and continue 
EC 790 10$: 
51. 00000000'EF 00 EC 791 OVL MCAPTR,R1 ; Get MCA pointer 
59 OC Al = ECA P86 SUBL3 #1, MCA$L_COLLCNT(R1) RO ; Get no of colls, don't count Ist 
59 59 4E OECF 379 CVTLF R9,R9 ; Get floating no of collections 
57 59 46 BEDS pee 20$ IVF R9,R7 ; Compute floating avg size/collection 
85 57 4A OEDS 3796 CVTFL R7,(R5)+ ; Stack whole part for fao 
pede 797 25$: 
58 05 OED8 3798 TSTL R8 ; Requested ALL statistics? 
05 13 OEDA 3799 BEQL 30$ : Yes -- continue 
004F 30 OEDC 3800 BSBW CALC_BAR 3; No -- q° do bar graph calcs 
11 #11 OEDF 3801 BRB 40$ 3 eee and get out 
OEE1 4 30$: 
59 FC AS 4E OQEE1 380 CVTLF <=4(R5),R9 ; Get back truncated <* 
57 59 42 OEES 3804 SUBF R9,R?7 ; Kompyse fraction to t 
57 000043C8 8F 44 OQEEB 3805 MULF #160,R7 : erg! ts for tabular "dlapley 
85 57 4A OEEF 3806 CVTFL R7,(R5)+ : Stack fraction for fao 
OEF2 3807 40$: 
05 OEF2 3808 RSB 
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INTORFL = Place whole and optional fractional parts of integer value 


Bete Se Ge Ge Ge Ge Gee Sete Ge Se 


INTORFL: 


10$: 


20$: 


30$: 


40$: 


evel) or 


floatin 


desler buffer (FAOSTK). 


scratc 


scrat 


)CR2J,(R5)+ 


address of | 


TEM_TYPE , #COUNT_TYPE 


data item index 
address of source statistics buffer 

for current item 

address of current longword in display buffer 


Copersccens value (count) into 


code _ requested statistic 


Is this item a count? 

Br if yes 

Move level value to disp buffer 
ALL gtestetics _ Saguaannee 

Yes -- continu 

No == q° do bar graph calcs 

ees and get out 


Stack fractional part 
eee and exit 


Stack whole part of rate (for count) 
ALL statistics requested? 

Yes -- continue 

No -- q° do bor graph calcs 

ees and get out 


Get back rounded part 
Compute fraction 
.-- to two digits 
Stack fractional part 


Return to caller 
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MONITOR = VAX/VMS Performance Monitor Utilit 16-SEP-1984 01:59:24 VAX/VMS Macro V04-00 Page 97 i) 
v04-000 FILL.DISP_BUFF - Fill Display Buffer” ~$eE= 138s 02:01554 EMONYOR.SREIMONY TOR MaR:1  O%° (35) vl 
F2E 50 ; 
Fee 51 ; CALC_BAR = Replace integer longword value in display buffer with three 
F2eE on 3 Longwords cgoresgating the width of a field to display 
FE 33 3 the value (0 or 7), the value, and the number of bar 
OF : 22 : characters needed to represent the value in a bar graph. 
Fee 2 ; Note -- if SYSTEM class, merely annex bar count to count 
4 ; S2e 3 already in display buffer. 
OF 2 539 $ Register Inputs: 
FE 56 3 R1 = scratch 
F2E 62 ; RS = address of current om grok in display buffer; 
OF2E 3863 ; will be upgstes to next available longword on output 
OF2ZE 3864 ; R6 = addr of CDB 
OF2E 3865 ; R7 = scratch 
oF : B66 : R9 = scratch 
OF 2E se08 i Implicit Inputs: 
OF2E 3869 ; 
OF2E 3870 ; GMIN - Integer longword, min value for graph 
OF2E 3871 ; BPU = Floating longword, bar chars per unit of value 
OF 2E 1h 3 
OF2E 387 
OSE 3875 
OF2E 3876 ; This subroutine creates 3 longwords in the FAOSTK array for the current 
OF2E 3877 ; data item. The current item is represented by a Longuerd integer value 
OF2E 3878 ; which will be étsplayed to the Left of the bar in the bar graph for 
OF2E 3879 ; the current class. The current item has already been placed in the 
OF2E 3880 ; display buffer by the calling routine; R5 has already been advanced to 
OF 2E $08) 3; the next available longword. This subroutine must replace the value 
OF2E 38 ¢ ; longword in the display buffer (FAOSTK) with 3 longwords, leaving R5 
OF 2E $86 3 pointing to the next available longword. The three longwords are: 
OF2E 3884 ; width of value field (0 or 7), value, and number of bar characters 
OF2E 3885 ; needed to represent the value. The number of bargraph characters is 
OF2E 3886 ; computed in floating point and then truncated. 
Be a 
OF2E 3889 CALC_BAR: 
35 48 A6 «6008~=6EO SCO +4 BBS #CDBSV_SYSCLS,CDBSL_FLAGS(R6),30$ ; Br if SYSTEM class 
57 D0& OF 91 CLRL R7 3; Assume value field width will be 0 
65 FC AS 00 OF $36 MOVL -4(R5),(R5) 3 Move value ahead in display buffer 
3 1 oF 9 9 BEQL 10$ ; If value zero, go move 0 field yidsh 
57 7 OA OF ; Be 108 MOVZBL #7,R7 3; Value is non-zero; field width is 
FC AS 57 ~~ =00 oF3 38 MOVL R7,-4(R5) : Move value field width into display buffer 
+ B39 3; Now calculate number of bars to output 
57 D&S OF4 bY CLRL R7 3; Assume no bars will be output 
59 85 QO00000A"EF C3 OF44 3901 SUBL3  GMIN, (R5)+,R9 ; Cale units of value to output and ... 
F4C O08 3 ee. advance R5 to ‘no of bars’ Longword 
15 15 OF4C 39 BLEQ 208 ; Output no bars if leq zero 
59 59 4€ ras 904 CVTILF R9,RO ; Convert units to floating 
8g 00009006 "fF 44 re 905 MULF2 BPU,R9 ; Bars/unit * units => bars to output 
5 9 4A O0F58 3906 CVTFL R9,R? : Integer number to output 
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#MAXBARS ,R7 3 Check for upperbound 
; Continue if within range 

#MAXBARS ,R7 ; Else make it within range 

R7,(R5)+ ; Move number of bars to display buffer ... 
3 ses and advance R5 to next Longword 

50$ 3; Go return to caller 


: Special processing for SYSTEM class 


FMT_SYS_SINGLE,R1 ; Get vector of format codes 
(R13CR27,#NUMB_ONLY 3: Number only desired? 
50$ ; Br if yes -- all done 


e+» mumber and bar desired. Number is already in stack. 
number of bars to output. 


R7 ; Assume no bars will be output 
-4(R5) ; Zero units of value to output? 
40$ ; Output no bars if leq zero 
BU_SYS_SINGLE,R1 ; Get addr of vector of bar ranges 


(RT) CR2I,R9 : Get floating range for graph 
#MAXBARS_SYS,R1 ; Get max bar chars per Line 
R9,R1 ; Calculate bar chars per unit of output 


=4(R5) RO :; Get floating units of value to output 
R1,R9 ; Bars/unit * units => bars to output 
R9,R7 3 snteger number to output 

#MAXBARS_SYS,R7 ; Check for upperbound 

4 ; Continue if within range 

#MAXBARS_SYS,R7 ; Else make it within range 

R7,(R5)+ ; Move number of bars to display buffer ... 


3 ee. and advance R5 to next longword 
; Return to caller 
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FDB_SYS_SINGLE: 
00000000°EF40 
52 2E AO 


00000000°EF40 
54 2E AO 
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FDB_SYS_SINGLE 


Fill —- statistics buffer from similar buffers of the MODES 
STATES and SYSTEM classes. Then call INTORFL and INTAVE routines 
to transform the data in the buffer to items on the FAOSTK. 


ay routine is entered with a direct branch, and branches to 
FDB_RET when done to return to original caller. 


Inputs: 


RO - R2 scratch 

R3 - address of statistics buffer. 

R4 - RS scratch 

R6 = address of SYSTEM CDB. 

R7 = R10 scratch 

R11 = address of TM4, a temporary stack area 


MOVL #<COBSK_SIZE*MODES_ CLSNO>, RO ; erty offset - Borin CDdB 
MOVAB CDBHEADERO),RO bose "get its CDB addre 
MOVL  CDBSA ABUFFERS(RO), R2  : ... and MBP ptr for loter une 


MOVL #<CDBSK HS labt Mella CLSNO>, RO ; sonpute offset to STATES CDB 
MOVAB CDBHEADE[RO],RO j se. get its CDB address 
MOVL COBSA _BUFFERS(RO), R4 3... and MBP ptr for Later use 


MOVL COBSA_BUFFERS(R6) ,R5 ; Get same for SYSTEM class 
MCVZBL CDBSB_ST(R6),R8 Get re yested stat code 
CASE >.L 


R8,<FS_ALL,FS_CUR,FS_AVE. at omING S_MAX 
: Select on mete stat 


Atl! ; Should not occur 
Me , MOVL MBPSA_STATS(R2) ,R2 ; Load addr of STATS buffer for MODES 
MOVL MBPSA_ USTATS(R4) ,R4 ; Load addr of STATS buffer for STATES 
MOVL MBPS$A_STATS(R5),R5 ; Load addr of STATS buffer for SYSTEM 
SRB FS_CORMON ; Join common code 
FS_AVE: 
MOVL MBPSA_SUM(R2) ,R2 ; Load addr of SUM buffer for MODES 
MOVL MBPSA_SUM(R4) ,R4 : Load addr of SUM buffer for STATES 
MOVL MBPSA_SUM(R5),R5 3; Load addr of SUM buffer for SYSTEM 
GRE FS_COMMON 3; Join common code 
FS_MIN: 
MOVL MBPSA_MIN(R2) ,R2 ; Load addr of MIN buffer for MODES 
MOVL MBPSA_MIN(R4) ,R4 ; Load addr of MIN buffer for STATES 
MOVL MBPSA MIN(RS),RS ; Load addr of MIN buffer for SYSTEM 
BRB FS_COMMON ; Join common code 
FS_MAX: 
MOVL MBPSA_MAX(R2) ,R2 ; Load addr of MAX buffer for MODES 


(eee —E————_——_—_——————e—eeee 
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v04-000 FILL_DISP_BUFF = Fill Display Buffer -SEP-1984 02:01:24 CMONTOR.SRCJMONITOR.MAR;1 ( cof 
54 10 A4 DO 100 £808 MOVL MBPSA_MAX(R4) ,R4 ; Load addr of MAX buffer for STATES | 
55 10A5 D0 1012 4010 MOVL MBPS$A_MAX(R5),R5 ; Load addr of MAX buffer for SYSTEM 
00 11 } a3) BRB FS_COMMON ; Join common code | 
191 4018 FS_COMMON: 
1018 4018 | 
191 4016 : Move items of interest from the source buffers to a single | 
i} tbi8 3; destination buffer. 
1018 4019 : eee NOTE *** This section contains hard-wired offsets. It 
1913 2 Oo; assumes that the positions of items in the 
1018 4021 ; MODES and STATES class do not change. | 
1018 40 § 5 Not currently using the MODES class for the 
1018 $85 : single display, however. | 
1018 4024 ; 
ih $88 | 
1018 4097 : wee NOTE *** R2 has the address of the MODES buffer, but it is 
1018 4028 ; not being used currently. | 
1018 4029 ; 
1018 4031 | 
57 53 00 316 1036 MOVL R3,R7 ; Set up variable ptr to dummy buffer 
8 85 DO 1018 4034 MOVL (R5)+,(R7)+ ; Get ‘CPU busy’’ from SYSTEM 
87 10 A4 7D 101E 4035 MOVO  16(R45,(R7)+ : Get 8 items from STATES 
87 18 AG 7D 10ge 4036 MOVQ 24(R4), (R7)+ | 
87 C AG 7D 1026 4037 MOVQ 44(R4),(R7)+ 
87 OC A4 DO 102A 4038 MOVL 12(R4), (R7)+ | 
87 04 A4 dO + 3 rh rt MOVL 4(R4) ,(R7)+ 
50 FFFFFFF7°8F 00 1936 rent: 108 MOVL #<ECOUNT_SYS_SINGLE-9>,RO ; No. of items to get from SYSTEM 
87 85 00 1039 404 "  MOVL.—s (R5) +, (R7) + ; Move a SYSTEM item into dummy buffer 
FA 50 «FS 103¢ 4044 SOBGTR RO,10$ : Loop to get all of them 
103F 4046 
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v04-000 FILL_DISP_BUFF = Fill Display Buffer” sets EE? MONTOR.SRCJMONITOR.MAR; 1 
F 48 ; 
" : ¢ 3; At this point, 
F 51: R3 - points to the newly formed uummy statistics 
F 52: Re - COB otr 
F 53 3 RB = statistic code 
: 54; R11 = TM4 prr 
F e 
55 Q0000103'EF ODE ; 


MOVAL FAOST¥,R5 ; Load address of display buffer 


Loop once for each e..ement in this class. Pick up transformed value for 
desired statistic from appropriate buffer within collection buffer 
block. Do computation on transformed value if required, and place 

whole and fractional portions of result into display buffer (FAOSTK). 


6B FFFFFFFF‘8F 00 MOVL #<ECOUNT_SYS_SINGLE=-1>, = ; Set up number of elements to 


PANAMA RRR RRR RR RRS 
WOM OARS LOCO AAAAAAOOAT 
Fe ahd at at at at at at oe ae ee ee a mem mn nnn n nnn n nme 


Os 208 
0 
0 83 
gS oh 
0 06 
0 06 
0 06 
0 06 
0 06 
0 06 
8 6 TM4$L_ECOUNTTR11) i «+. display as a loop Limit 
50 OQOO000000'EF ODE 8 +3 MOVAL ITMSTR_SYS_SINGLE,RO ; Address of item-number string 
52 D4 10 07 CLRL R2 ; Clear element index register 
0 072 FSS_BEG: 
54 80 9A 10 07 MOVZBL (RO)+,R4 3; Get next item number 
54 «11 C4 10 07 MULL2 #IDBSK_ILENGTH,R4 ; Compute index into IDB table 
54  Q000'CF44 SE 10 07 MOVAB W*PERFTABLECR4I,R4 : Address of IDB for this item 
OOEO'CF OA AG BO 0 7 MOVW  IDBSW_TYPE(R4),W*ITEM_TYPE ; Save item type for use below 
02 58 ovb1 10 07 CMPL R8,#AVE_STAT ; AVERAGE statistic requested ? 
05 13 1068 407 BEaL ~=s«10 : Br if yes 
FE83 30 106D 408 BSBW ipTonr. : Process an integer or floating value 
o> os Bf Bs 108 BRB 0$ 3 «+. and go loop for next element 
FE11 30 4 3 aid BSBW INTAVE :; Process an integer average value 
FFDB 52 O01 6B FI 075 83 ; ACBL TM4$L_ECOUNT(R11),41,R2,FSS_BEG ; Loop once for each element 
56 DD 1078 $8 PUSHL R6 ; Pass CDB address 
55 0D BoP 08 PUSHL R5 3; Pass current FAOSTK address 
00001089"EF 02 FB 4A 4 CALLS #2,FDB_SYS_TOP ; Compute and stack the four tops 
FDE2 31 888 09 BRw FDB_RET ; Go return 
0 09 
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yoe-000 Foes ‘ op’. rocess TOPs for SYSTEM cl 7$eb=1 3b AEE? MONTOR. SRETMONG TOR MARS 1 ~— ( $) 
-SBTTL FDOB_SYS_TOP = Process TOPs for SYSTEM class 
++ 
FUNCTIONAL DESCRIPTION: 
TBS 
INPUTS: 
OUTPUTS: 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
RO = SS$_NORMAL 
SIDE EFFECTS: 
none 


.ENTRY FDB_SYS_TOP, *M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
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B 
57  Q0000000'8F 00 o8 MOVL #<PROCS NO*CDBSK a R7 ; Compute ottset to PROCESSES COB 
50” O0000000°EF4? + 9E 1098 MOVAB  COBNEADLRDS “RO Index to. COB addre 
9A : : NOTE = TOP_D DIFFS. needs RO set up this way 
57 2 4 dO 9A MOVL COBSA_BUFFERS(RO) ,R7 3; Load buffer” block p 
~. ¢ dO H MOVL MBPSA_BUFFERA(R7), *R? 3; Load collection bul fer ptr 
Al $ 
OA1 3; If not first TOP Gi splay event, calculate S_TOP_TICKS (the 
QA1 3; number of check ticks (10ms units) since previous entry 
OA1 ; to FDB_SYS_TOP 
Ae 
52 QOQQ00000'EF DO 10A1 MOVL MCAPTR,R2 t MCA pg inter 
932 a2 09 €1 10A8 BBC PRCASV. S_TOP_DISP,MCASW_ FLAGS che 
OAD TOP_TICKS calc if 1st time thru 
52 03 A? 7D 10AD MOVQ MNR_CLS$Q_STAMP(R7) ,R2 Fuk. System time to temp regs 
2g OO ee ce C2 1081 SUBL2 W*S_TOP_TIME,R2 : pete low-order in sys unite 
5 OO33'"CF D9 1086 SBwC W*S”-TOP_TIME+4,R3 : c¢ high-order in sys uni 
0037"CF 52 000186A0 a 78 688 EDIV #1000007R2,W*S_TOP_ TICKS, Ro’ 3 “cals interval ticks tims units) 
Océ $$ 3 «ee for use below 
OO2F'°CF O3 A? 7D pce : MOVQ MNR_CLS$Q_STAMP(R7) ,W*S_TOP_TIME ; Save curr time for next disp even 
Occ 
occ Set up registers to call TOP_DIFFS routine to get the DIFF array 
occ filled in, which contains the incremental differences in the 


requested resource since previous display event. RO and 
already set up. 


54 Q000003B°EF DE MOVAL SYS_TOP_VEC,R4 3; Get pie to aoe a top buffers 
5 84 d0 MOVL (R4)+,R 3; Get DATA array p 
5 84 D0 MOVL (Ra) eck ; Get DIFF array +44 
55 84 00 MOVL (Rade, ; Get PID array ptr 
56 84 00 MOVL (R4) : Get ADDR array ptr 
58 2B~—Séid MOVL ann rerose _CPUTIM,R11 ; Get CPUTIM offset 
0081 8F PUSHR ; Save since changed by TOP_DIFFS 
0304 BSBW TOP pitts ; Cale diffs over the last Tnterval 
0081 8F POPR #*M2RO,R7> ; Restore 


Get DATA array ptr 
Get DIFF array ptr 
Get PID git ge 

Get ADDR arra 

Get PAGEFLTS vefset 


MOVL aie 


R4) 
MOVL  #MNR “BROS _PAGEFLTS,R11 
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7 
PUSHR ay Save since changed by TOP_DIFFS 
cA BSBW rot ry Cale diffs over the last interval 
0081 8F POPR phe R7> Restore 
26 4 MOVL (R4)+,R ; Get DATA array ptr 
4 MOVL (R4)+,R 8 
5 4 MOVL a0} oR? ; Get PID array ptr 
4 MOVL (R4)+ ; Get ADDR ge © ptr 
B 23 MOVL #MNR “eros. _DIOCNT,R11 =; Get DIOCNT offse 
0081 8F PUSHR #*M<RO,R7>~ ; Save since bent by TOP_DIFFS 


Get DIFF array ptr 
| 
} 
| 
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B 
POPR 


Now all DIFF arrays are est 
the top user. Note: 


10$: 


20$: 
RET 


CLEAR_STACK: 


t 
S 


4 

16-SEP-1984 01:59:24 
th cl ety 7 83:39 82 
a : Cale diffs over the last interval 
2R0,R7> ; Restore 


Get DATA array ptr 

Get DIFF array ptr 

Get PID array o 

Get ADDR array ptr 

; Get BIOCNT offset 

; Save since changed by TOP_DIFFS 
Cale diffs over the last Tnterval 

; Restore 


AX/VMS Macro V04-00 
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i 
Y 
T 
# 
( 
( 
( 
; 
# 


pnd ibe. BIOCNT,R11 


tor putes. 


te shed. Loop threy h each one to find 


TOP_DIFF places MAXPROCESSCNT in R11. 


4(AP),RS5 ; Get current position in FAOSTK 

8( AP) ,R6 ; Get COB address for later use 

SYS_TOP_VEC,R4 i Get addr of TOP aatrays 

MCAPTR,R1 pointer to to MCA 

#MCASV_S_TOP_DISP.MCASW_ Ate 1),108 ; Br if not first disp 
e+e and always set bit 

CLEAR_STACK s 2f ttret display event, simply 

CLEAR_STACK 3 oe. Stack zeroes 

CLEAR-STACK ae 

CLEAR_STACK $ wae 


~ 
oO 
wo 
. 


; ee. and go return 


; Get addr of yt DIFF array 
eee an nd ADDR arr 

ess and set up inden for CALC_BAR 
Find the top and stack its info 
Get addr of PAGEFLTS DIFF array 
eee and ADDR array 
ess and set up index for CALC_BAR 
Find the top and stack its info 
Get aie of gat DIFF array 
eee and ADDR arr 


«++ and ADDR ra 
> index for CALC_BAR 
Find the top ond stack its info 


ABOUNM BLWIY Bova 


Return 


; Stack null process name 


; Length of process name to FAO stack 
; Address of process name to FAO stack 
; Stack dummy value and bar value 


nRi-a- 
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ITOR = VAX/VMS Performance Monitor UtiLit 16-SEP-1984 01:59:24 YAX/VMS Macro V04-00 Page 105 | 
youe000 FDB_SYS_TOP = Process TOPs for SYSTEM cl ety 7 83:89 Se MONTOR.SRCJMONITOR.MAR; 1 ° (58), 
11A7 4 FIND_TOP: 
50 DS 11A7 & : CLRL RO ; Init index 
SA 6133 DO 11A9 4 } MOVL (R1)CROJ,R10 ; Get first value 
5 D4 1342 ? 1B 108 CLRL R8 3 eee and first index 
: : | 
6140 SA D1 T1AF 4241 CMPL R10, (R1) CROJ ; This item greater than current best? 
07 18 1183 4249 BGEG 208 ser itn | 
5SA___ 6140 44 1185 426 MOVL SF agnoaente 3; Found a new best 
58 50 oO 118? ? rf: 208 MOVL RO,R ; Save its index 
EF 50 5B F2 11K 4046 AOBLSS R11,RO,10$ ; Loop MAXPROCESSCNT times | 
05 11€0 424 RSB ; Return 
11C1 4 $8 
11C1 4249 STACK_TOP: 
11€1 4250 
E46 10 Vie) ? 2) BSBB FIND_TOP ; Find the top process 
11¢3 4 3§ : 
Hy: ? 30 ; At this point, R10 has the top value, and R8 has its index value. 
11C3 4256 © 
50 O08 AS 00 11C3 4 5 MOVL 8(R4) ,RO ; Get addr of CPUTIM PID array 
50 6048 DO 11C7 4258 MOVL (RO) CR8J,RO : Get PID for top process 
; Is it the NULL process? 
a ie ti a : 
; Br no 
é L process -=- zero its va 
6148 D4 11CF 4261 CLRL (R1) CRB) NUL its DIFF val 
D3 =610 1188 ? 6¢ 108 BSBB FIND_TOP 3 «ee and go find another top 
5A D5 1104 4264 TSTL R10 : Top value zero ? 
04 12 1106 4265 BNEQ 30$ ; Br if no 
STACK : Yes, simply stack zeroes 
BE 10 1108 426 BSBB CLEAR_STAC impl k 
ec sii Ht ? of 30s BRB 40$ 3 eee and go exit 
58 6348 DO 11DC 4269 MOVL (R3)CR8),R8 ; Get addr of process data block 
85 AB 7D 1160 4270 MOVQ MNR_PROSO_LNAME (R8) (R5)+ ; Process name cstring to FAO stack 
85 13 A8 7D 1164 4271 MOVQ = MNR-PROSO LNAME+8(R8) , (RS oS aman 
VZBL e + ; Length of process name to stac 
85 FO AS 9A 11E8 427 MOVZ 16TR5), (RS) h of FAO k 
oR5, + : ress of process name to stac 
a3. . mw @& $433 ? i SUBL #19,R5,(R5) Add f FAO stack 
11FO 4275 ; 
lif 4 6 3; Transform the DIFF value (in R10) from a delta to a 
11FO 4277 ; rate/second. Then place it into the FAOSTK and ship 
11FO 4 oe 3; it off to the CALC_BAR subroutine to insert the 
3; bar character count into K. 
We ? ° b h ti FAOST 
11FO 4281 * 
5A _ 5A GE 11F0 4 ee CVTILF R10,R10 ; Get floating value over interval 
50 QO37"CF 4E 11F3 4 H CVILF W*S_TOP_TICKS,RO ; Get floating ticks over interval 
50 000043C8 8F 46 11F8 4284 Dives #100,R0 3 Get floating seconds over interval 
SA 0 46 I1FF 4285 DIVF RO,R10 ; Get floating rate per second 
85 A 4A 1 Oe & § CVTFL R10, (R5)+ ; Move longword rate/sec to FAO stack 
FD26 §=630 «1205 4 BSBW CALC_BAR ; Calculate and stack bar ghers required 
1 4 8 ; CALC_BAR destroys regs R? and R9, and 
1 4 3 3 ee. Updates R5 to point to the next 
1 4290 3 eee available longword in the FAO stack 
1 4291 40$: 
05 1 4292 RSB ; Return 
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1209 4295 ; 
3 4 36 ; FDB_SYS_ALL 
1209 4 $8 : Fill a dummy MBP and 4 dummy statistics buffers (STATS, MIN, MAX, and SUM). 
1209 4299 ; The dummy statistics buffers will form a hybrid between the MODES class 
! 2 ? 9 3 and the SYSTEM class. 
! 4 : § : Inputs: 
1209 4304 : RO - RS scratch 
1209 4305 ; R6 = address of SYSTEM CDB. 
1 94 4 § 8 R10 = address of dummy MBP foilowed by the 4 statistics buffers. 
: 88 2 i : R11 = address of TM4, a temporary stack area 
: 4 2 03 : Implicit Outputs: 
1 $9 4311: The dummy MBP and buffers are filled. 
1209 4 \§ 3 TM4$L_ECOUNT contains number of elements to display. 
: 38 : 1? : TM4SA_ITMSTR points to the display item string. 
1209 4315 ° 
: y $ 18 FDB_SYS_ALL: 
50 Q00000000°8F DO 1209 4318 MOVL #<COBSK BAe eee ck aie oe ; Compute offset to MODES CDB 
50 Q0000000°EF4O 9E 1210 4319 MOVAB CDBHEADTR i ee. get its COB address 
51 2— AO DO 1218 4320 L CDBSA_BUFFERS(RO),R1  : ... and MBP ptr for Later use 
52 —E A6 DO ! if ? 1 MOVL COBSA_BUFFERS(R6) ,R2 ; Get same for SYSTEM class 
535 SA 28 (C1 : ? ? § ADDLS #MBPSK_SIZE,R10,R3 ; Compute address of dummy STATS buffer 
1224 4325; 
1224 4326 ; Fill STATS buffer with ECOUNT_SYS_ALL lLongwords 
: : : 3; starting at address in R35. 
1224 4329 ° 
08 AA 53 00 1224 #3 0 MOVL R3,MSP$A_STATS(R10) ; Load addr of dummy STATS buffer 
54 08 Al DO 1228 43 1 MOVL MBPSA_STATS(R1),R4 : Get MODES STATS buffer ptr 
55 07 od0 122C 4 § MOVL #7,R 3 eee and no. of items to pick 3 
6F 10 \ ' 2 Z BSBB MOVE _ITEMS ; Move the items into the dummy buffer 
54 08 A208 C1 1231 4335 ADDL3 #8,MBPSA_STATS(R2) ,R4 3; Get SYSTEM STATS buff ptr (skips 2 items) 
55 FFFFFFFO°"8F DO 1236 4 $ MOVL #<E COUNT SYS_ALL=7>,R5 ; ... and no. of items to pick up 
61 10 : 4 re } BSBB MOVE_ITEAS 3; Move the items into the dummy buffer 
123F 4 3 
123F 4340 ; Fill MIN buffer with ECOUNT_SYS_ALL longwords 
’ : ? 43 ; starting at address in R53. 
123F 4343 ° 
C AA 53 DO 123F 4344 MOVL R3,MBPSA_MIN(R10) 3; Load addr of dummy MIN buffer 
4 OCAl 00 1 43 4345 MOVL  MBPSA_MIR(R1),R4 : Get MODES MIN buffer ptr 
55 7 pO 1247 4 $6 MOVL ‘ 3 eee and no. of items to pick up 
4 1 ! 7 ; r BSBB MOVE _ITEMS ; Move the items into the dummy buffer 
54 OC A2 98 C1 124C 4 #8 ADDL3 #8, MBPSA_MIN(R2) .R4 ; Get SYSTEM MIN buff ptr (skips 2 itemS) 
55 sO FF FFF FFO'8F 00 1251 4 29 MOVL #<E COUNT SYS_ALL-7>,R5 ; ... and no. of items to pick up 
46 10 1258 435 BSBB = MOVE_ITEAS ; Move the items into the dummy buffer 


. — 
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1TOR = VAX/VMS Performance Monitor Utilit 16-SEP-1984 01:59:24 VAX/VMS Macro Vv04-00 Page 1 mC 
-000 FDB_SYS_TOP = Process TOPs for SYSTEM cl ety 7 84:39:82 MONTOR.SRCJMONITOR.MAR; 1 ° (98, ve 
125A 4 ¢. 
125A 4 3 
125A 4354 ; Fill MAX buffer with eCONT SYS_ALL longwords 
125A 4355 ; starting at address in 
158q 2889 | 
10 AA 53 00 125A 4 8 MOVL 3,MBPSA_MAX(R10) 3; Load addr of dumey MAX buffer 
54 10 Al DO 1056 4 MOVL nePSA LMAR(R1) ,R4 ; Get MODES MAX buffer ptr 
55 g? DO 1262 4360 MOVL 3 «ee and no. of items to pick »: 
9 10 ! e ? e} BSBB move. ITEMS ; Move the items into the dummy buffer 
2 10 A2 ge C1 1267 4 6 ADDL3 #8,MBPSA_MAX(R2),R4 3; Get i MAX are ptr senses 2 itemS) 
5 FFFFFFF9"B8F DO 126C 4364 MOVL #<ECOUNT SYS -ALL=7>,R5 ; ... and no. of items to pick up 
28 10 : f é #1 BSBB MOVE_ITEMS 3; Move the items into the dummy buffer 
1275 4367 ; 
1275 4368 ; Fill SUM buffer with jECOUNT. SYS_ALL longwords 
1275 4 4 3; starting at address in R 
1275 $3 0; | 
1275 4371 
14 AA 53 00 1275 4 % MOVL R3,MBPS$A_SUM(R10) 3; Load addr of dummy SUM buffer 
4 14 A1 00 1879 437 MOVL MBPSA _SUM(R1) ,R4 : Get MODES SUM buffer ptr 
55 07 00 1270 4374 MOVL 3 «ee and no. of items to pick up 
1€ 10 1680 $322 BSBB move: ITEMS ; Move the items into the dummy buffer 
54 14 A2 08 C1 1383 4359 ADDL3 #8,MBPSA_SUM(R2) ,R4 3; Get SYSTEM SUM buff ptr sens 2 itemS) 
55 FFFFFFFO"8F DO 1287 4378 MOVL #<ECOUNT-SYS_ALL=7>,R5 : ... and no. of items to pick up 
10 10 1396 ref BSBB MOVE _ITEMS 3; Move the items into the dummy buffer 
1290 4381 
6B 00000000°8F DO 1290 $358 MOVL #ECOUNT_SYS_ALL ; Load number of elements to display 
1297 438 THASL ECOUNT (RTE) 
04 AB OQOOOOO000"EF DE 1297 4384 MOVAL ITMS 
oF 4385 Tmagh. TIMSTRYRI1) tse. and addr of display item string 
05 129F 1389 RSB 3; Return to caller 
12A0 $358 
12A0 4389 
1 ne 4390 ; 
12A0 4391 ; MOVE_ITEMS moves a consecutive_number of Longwords (number in R5) 
12A0 4 38 3; from” location R4 to location R3. R4 and R3 are auto-incremented. 
12A0 4393; 
12A0 4394 
12A0 4395 VE_ITEMS: 
12A0 4 38 10$:~ 
83 84 DO 12A0 439 MOVL (R4)+,(R3)+ : Move an item into dummy buffer 
FA 55 F5 12A3 4398 SOBGTR R5,10$ > Loop to get all of them 
05 155 ba80 a 
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-SBTTL FILL_TOP = Fill Display Buffer for TOP PROCESSES 
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cm 
am 


FUNCTIONAL DESCRIPTION: 
Calculates the TOP 8 PROCESSES since the la et display 
event, and fills the display buffer (FAOSTK) with data 
for later display. 
INPUTS: 
} 


4(AP) = COB speeee Descript 
for the PROCESSES 


IMPLICIT INPUTS: 


FAOSTK = FAO parameter List for a TOP scre 
MCAPTR = Pointer to MCA (Monitor senmunteat ion Area) 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 


Entire displa Berar (FAOSTK) filled with data for 
eventual display 


TOP_PROCS byte filled with number of TOP processes 
(with non-zero values) to display. 


ROUTINE VALUE: 
RO = SS$_NORMAL 
SIDE EFFECTS: 


pt 1 pg Block) pointer 


PERSE LLLL LEE EEE EEL P PLP PPP PEEP LEE L ELE TO 
BERR R ERR RRR RRR PREP PPPPPERPEEERP PEPPER 25 


PPPPPPPPPPPKPKPKPPKPKPKrrKPPKPPrrrrKr rr rr rrr rrrrrrrrrrrrrrrrrrrr>r 
Se ti i i a et Bf 
Be Se Ge Se Ge Ge Ge Se Se Se Ge Ge Ge Se Ge Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Fe Se Sse Ge GeGe Ge Se Sse tsetse Sete Se 
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rf none 

re REGISTER USAGE: 

444 RO = Scratch 

4445 R1 = ote f addr of MBP 

444 R2 = Addr of DATA array 

444 R35 = Addr of DIFF array 

444 R4 = Addr of ORDER array 

444 RS = Addr of PID array 

4450 R6 = Addr of ADDR a ay 

4451 R? = Pointer to colle ion buffer data block 

$428 R8 = Process index (PIX) for current Cate block 

445 R9 = Current process index (from 0 to MNR_SYI$W_MAXPRCCT) 
$628 R10 = Number of data blocks (processes) Re at buf f 

4455 R11 = Pointer to monitored data item in coll buff data broek: 
1428 Also, Max process count (from MNR_SYISW_MAXPRCCT 

4458 
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OFFC 12A7 4459 .ENTRY FILL_TOP, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
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v04-000 FILL_TOP = Fill Display Buffer los TOP P Sets 7 83:39:82 MONTOR. SRC JMONITOR.MAR; 1 = (61) 
1 04 AC 0 12A9 4461 MOVL 4(AP),R1 ; Load CDB pointer 
2a 42 Al BA 12AD bt8e MOVZBL cogse ST(R1),R11 ; Get PROCESSES display type code 
120B1 44 CASE R11,<REG,TOPC,TOPD, TOPB, TOPF>,W ; Go set offset based on type 
00 11 Bf 4464 BRB Topé ; If out of range, do a TOPCPU 
12C1 4466 REG: ; Regular PROCESSES display (should not t) 
15¢] 246? TORE: : TOPCPU displa Yeti! SR TR A 
5B 2B «DO 19C1 4468 HOVL —FANRPROSL_CPUTIM.RIT. Get offset into PROCESSES data block 
OD 11 1204 4469 BRB FT_CASE ; Join common code 
12C6 4470 TOPD ; TOPDIO display 
58 23 =o0O 1 C8 4471 MOVL #MNR_PROSL_DIOCNT,RI11 3 Get offset into PROCESSES data block 
08 11 12¢ 2006 BRB FT_CASE ; Join common code 
12CB 4475 TOPB: ; TOPBIO display 
5B OF DO 12CB 4474 MOVL #MNR_PROSL_BIOCNT,R11 3; Get offset into PROCESSES data block 
03 11 1 ce 4475 BRB FT_CASE ; Join common code 
1200 4476 TOPF 3; TOPFAULT display 
5B 27 00 : b3 rete MOVL #MNR_PROSL_PAGEFLTS,R11 ; Get offset into PROCESSES data block 
1B rth FT_CASE: 3; Common CASE return 
51 2E Al DO 1203 4481 MOVL COBSA_BUFFERS(R1),R1 ; Load buffer block ptr 
57 61 DO 12D7 $658 MOVL MBPSA_BUFFERA(R1) ,R7 ; Load collection buffer ptr 
1h S38 
12DA 4485 : If not first TOP Glee ley event, calculate TOP_TICKS (the 
12DA 4486 ; number of clock ticks (10ms units) since previous entry 
12DA 4487 ; to FILL_TOP. 
1k Sa 
52 QO000000'EF DO 12DA 4490 MOVL MCAPTR,R2 ; Get MCA pointer 
19 32 A207 «ET s«12E1 4491 BBC #MCASV_TOP_DISP,MCASW_FLAGS(R2) ,5$ 
1266 449¢ ; Skip fOP_TICKS calc if 1st time thru 
52 03 A? 7D 1266 449 MOVQ MNR_CLS$Q_STAMP(R7),R2 ; Current System time to temp regs 
5 OO23'CF C2 IgA 4494 SUBL2 w*TOP_TIME, ; Cale low-order in sys units 
5 0027°CF D9 I2EF 4495 SBwC w*TOP 1 oats ; Calc high-order in sys units 
O02B'CF 52 000186A0 gf 78 iste 4496 EDIV #100000,R2,WATOP_TICKS,R2 ; Calc interval ticks (10ms units) 
iste ret 4 $s 3 «+. for use in MOVE_TOP8 rtn below 
0023'°CF O03 A? 7D : FE Pett : MOVQ MNR_CLSS$Q_STAMP(R7) ,W*TOP_TIME ; Save curr time for next disp event 
1305 4501; 
1305 4302 3; Set up array pointers in preparation for calculations of difference 
! be $202 : values for each process for the monitored item over the last interval. 
1305 4305 : 
2g 08 Al vo0 1 §8 45 $ MOVL eres PATALRI} Re ; Load DATA array ptr 
5 OC Al DO 1309 450 MOVL MBPSA_DIFF(R1),R ; Load DIFF array ptr 
20 10 Al 1) 1300 $208 MOVL MBPSA_ORDER(R1S RS ; Load ORDER array ptr 
5 14 A1 DO 1311 45 MOVL §$MBPS$A-PID(R1),R5 : Load PID array ptr 
56 18 Al «00 s«1315 4310 MOVL § MBPSATADDR(R1S ,R6 ; Load ADDR array ptr 
50 04 aC 00 ' +4 $2 MOVL 4(AP) IR ; Load CDB pointer 
ooCcD 38630 ' 1D i BSBW TOP_DIFFS ; Calculate the diffs over Last int 
51 09900000" E pd 1 30 4515 MOVL MCAPTR,R1 ; Get pointer to MCA 
OE 32a1 O07 €E3 1 4516 BBCS  #MCASV_TOP_DISP,MCASW_FLAGS(R1) ,80$ 
| 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WAW AMINA ANIMA OO 
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VMN > SF COE AMIMOOMOO 

PPL LLL LLL LEE NO 


PUSHR 


BSBB 
POPR 
BSBB 
BRB 

CLRB 
MOVL 
RET 
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nce Monitor uritity "9 S 
splay Buffer for TOP P 


#*M<R11> 
SORT_PROCS 
#*°M<R11> 
MOVE_TOP8 
90$ 
W*TOP_PROCS 
NORMAL ,RO 


+3966 ants Macro Vv04-00 Page 1 
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If first top display event, don't 
«+. sort or move (and set bit for future) 
Save max process count 


; Sort the top 8 processes 

; Restore max process count 

; Insert data for TOP 8 into FAOSTK 
; Go return 

; No procs to display on Ist time 


; Indicate normal status 
; Return 


ee 


¢ 
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v04-000 FILL_TOP = Fill Display Buffer for TOP P 5-SEP-1984 02:01:24 CMONTOR.SRCJMONITOR.MAR; 1 (62) Vv 
1346 4534 ; 
! is ‘3 5 ; SORT_PROCS 
: 48 ‘3 : : Set up the ORDER array to contain the processes indices. 
46 4339 ; R11 contains max process count. 
46 i343 : This subroutine destroys registers RO,R1,R7,R8,R9,R10,R11. 
1346 4543 ° 
1346 4544 SORT_PROCS: 
134 $282 
51 D4 1346 4 46 CLRL R1 ; Zero first process index 
6441 51 DO 1348 4547 108: MOVL R1,(R4)CR1) ; Load index into Sorrespendine ORDER elem 
F851 5B Fe i 49468 AOBLSS R11,R1,10$ ; Do all elements of ORDER array 
1350 4550 ; 
1350 4551 ; Go through the DIFF erray and re-position elements in the 
1350 $226 ; ORDER array using a bubble sort. When the following two-level 
1350 4553 ; loop is complete, the highest-numbered 8 elements of the ORDER 
1350 4554 ; array will contain the process index numbers of the TOP 8 
1350 4555 ; consumers of the monitored resource. 
138 te 
5B 07 1350 4558 DECL R11 ; Get highest process index (PIX) 
[A 6 6UhlUCtC‘éGSSS 1328 2323 208 SUBL3 #7,R11,R10 :; Get 8th from the highest PIX 
59 01 00 1386 4361 aon MOVL  #1,R9 ; Init loop index of inner loop 
51 59 01 ¢3 1359 rats " — SUBL3. ss #1,R9,R1 ; R1 is always one less than R9 
57 6449 00 1320 4564 VL (R4)CR9I,R7 3; Get PIX from current ORDER element 
58 6441 DO 1361 4565 MOVL (R4)CR1),R8 ; Get PIX from previous ORDER element 
6348 6347 01 1333 4566 CMPL (R3)CR7), (R3) CRB) ; Compare curr DIFF val with previous 
08 18 136A 4567 BGEQ 40$ ; Curr is not less -= no switching 
6449 58 D0 136C 4568 MOVL R8,(R4)CR9] : Curr is less -- switch PIX in current 
6441 57 p00 1300 $282 408 MOVL R7,(R4)CR1I] 3 eee ORDER elt with that in prev ORDER elt 
E159 5B F3 1374 4571  — AOBLEQ R11,R9,30$ ; Loop through all elements of ORDER 
1378 $278 3 ee. array except the ones on the high 
1378 $277 3 ee. end which already have TOP values 
FFD4 5B FFFFFFFF 8F SA F1 1378 4575 ACBL R10,#-1,R11,20$ ; Loop 8 times to ‘‘bubble down’’ PIX's 
138 £228 3 ee. for the 8 Largest consumers 
05 138 4578 RSB ; Return 
1383 4579 


» F 
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v04-000 FILL_TOP = Fill Display Buffer for TOP P eet 9 83:39:82 MONTOR.SRCJMONITOR.MAR; 1 ° (63) 
1 t2 73 
} ? ¢ ; MOVE_TOP8 
1 43 4 : Move data for the top 8 (or fewer) processes | 
! $2 5 ; into FAOSTK for Later display. | 
! $2 5 ; R11 contains max process count. 
: 4 4389 ; This subroutine destroys registers RO,R1,R5,R7,R8,R9,R10,R11. | 
1 4591 * | 
} 1238 MOVE_TOP8: 
55 O103"CF DE 1383 4594 MOVAL W*FAOSTK,RS ; Get pointer to display buffer 
51 01 00 1305 4595 MOVL #1,R1 : init’ count of procs that have 
1388 tees 3 .e. DIFF value > 0 
1388 4597 10$: 5 gogianing of TOP 8 tose 
5 7 1386 4598 DECL R11 ; Point to next lower ORDER element 
58 6448 D0 1380 4599 MOVL a) pda Re ; Get PIX from ORDER array 
SA 6348 b9 1391 4600 MOVL (R3)CR8I,R10 ; Get DIFF value for this TOP process 
GF 1 1395 4601 BEQL 40$ : Get out of loop if zero 
58 6648 00 td ret MOVL (R6)CR8),R8 ; Get ptr to process data block 
: Ne tehz 3 «ee from ADDR array 
1398 4605 : NOTE -- at this point, R8 points to process data block 
1398 $008 3 ee. and R10 has DIFF value. 
1398 4607 ; 
139B 4608 
139B 4609 ; 
1398 4610 ; Move individual items for this process from current data block 
1398 4611 ; in collection buffer to longwords in FAO stack. 
1336 ro OE ; 
139B 461 
50 04 AC dO i eeie MOVL 4 (AP) ,RO ; Get PROCESSES CDB address 
20 Ad + i} 1396 4616 CMPW #MNR_PROSL_EPID,CDBSW_BLKLEN(RO) ; See if we have an EPID 
05 19 13A3 4617 BLSS ; Br if we do 
85 68 DO 13A5 4618 MOVL MNR_PROSL_IPID(R8),(R5)* ; Get the Internal PID 
04 ~ «11 : “ rd 208 BRB 30$ ; Go get process name 
85 33 a8 00 13M rh i MOVL MNR_PROSL_EPID(R8),(R5)+ ; Get the Extended PID 
85 8 AS 7D 13AE 46 : MOVQ MNR_PROSO_LNAME(R8) ,(R5)+ ; Process name cstring to FAO stack 
89 13 a8 7D 1 4624 OV MNR~PROSO NAME +8(RB) , (RS) + “patie 
5 FOA 9A 1386 4625 ROVE ~16TRS) ,(R5)+ ; Length of process name to FAO stack 
Ss 7 C3 : . re § SUBL #19,R5, (R5)+ ; Address of process name to FAO stack 
13BE 4628 ; 
13BE 4629 ; Transform the DIFF value (in R10) from a delta to a 
13BE 4650 ; rate/second. Then place it into the FAOSTK and ship 
13BE 4631 ; it off to the CALC_BAR subroutine to insert the 
13BE 46 ; 3; bar character count into FAOSTK. 
13eE cea 
5A. SA 4E 1 ‘ te 5 CVILF = =R10,R10 ; Get floating value over interval 
50 43 et 4E 13C1 4636 CVILF utp TICKS ,RO : Get floating ticks over interval 
50 000043C8 8F 46 13€6 4637 DivF2 #100,R0 ; Get floating seconds over interval 


1TOR - VAX/VMS Performance Monitor U uritigy 1 4 9:24 YAX/VMS Macro V04-00 Page 11 
yOu 008 FILL_TOP = Fill Display Buffer hoe TOP P §-3 =$ sats 7 8}: 3} St MONTOR.SRCJMONITOR.MAR; 1 ° (63) 
A 0 46 1300 4 ; DIVF2 RO R ; Get floating rate per second 
5 5A 4A 1300 4 CVTFL R10, (R5)+ : Move longword rate/sec to FAO stack 
040 8F 1305 464 PUSHR #*M<R6> ; Save ADDR array petnter 
56 = 04 af B 1307 464 MOVL ue: R6 3 «+, and set up CDB ptr for CALC_BAR 
FBS 13DB 464 BSBW = CALC_BAR : Calculate and stack bar. hars required 
15DE 464 3; CALC oan geste s es and R9, and 
13DE 4 te 3 coe Upd ares R5 to point to the next 
13DE 464 3 «ee available longword in the FAO stack 
0040 8F BA } 3 rot | POPR #*M<R6> ; Restore ADDR array pointer 
AS 51 O08 F3 ; : ree | 408 AOBLEQ #8,R1,10$ ; Get info from TOP 8 processes 
OO22"cF 51 OF 83 1 33 2650 SUBB3 = #1,R1,W*TOP_PROCS ; Adjust count of processes for 
13EC 4651 3 «+e DISPLAY_TOP routine 
13EC 1626 
05 13€C 465 RSB 3; Return 
13ED 4654 
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v04-000 FILL_TOP = Display Buffer for TOP P g-8E eats TEE? MONTOR.S RCM ONITOR.MAR;1 ” (64) 
TOP_DIFFS: 


Fill the DIFF array and ADDR array for the current collection buffer. 


REGISTER INPUTS: 


s pe i a COB ptr 
= scratch 
= DATA array ptr 
= DIFF array ptr 
= PID —s Pane 
RG = ADDR ar y ptr 
10 pointer to ROCESSES collection buffer 


—> ee 8 a — — —) 2s 4 ts Ys 2 
estes tes Des Peslesliosioslasiaslieslieslasiosl sles esl esl esos esl esl esl esl cal 
> PwLOVTCVCCCCCCCVCVUC"0"0"000 
Pe ee ot ot ot ot ot ot et 


R 
R8-10 = 
R11 = stleen lace PRGCESSES data block for requested resource 
7 0D co ADDL2 #MNR_CLSSK_HSIZE,R7 gy to PROCESSES class prefix 
SA 04 A7 DO MOVL MNR_PROSL BCTINT(R7) RIO’: Get no. of procs in this coll buffer 
a ae ADOL #MNR_PROSR_PSIZE,R7 ; “Point to first data bloc 
5B «657~—=—C0 ; ADDL RP RTI zt se. and to first nent hared data item 


59 FFFFFFFF 8F 00 


MOVL #-1,R9 : Init process index 


AX 


S Pe 


1TOR - 
v04-000 F 


a 
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G6 5 
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17 
65 


o= 


) 


0$: 
58 67 3X MOVZWL MNR_PROSL_IPID(R7),R8 ; Get process index from next process 
208 3 «ee In collection buffer 
29 06 INCL RS ; Get next process index 
58 9 O01 CMPL R9,R8B 3; Any process slots not in coll buff? 
05 18 BGEQ 30$ ; No == go process this one 
6349 D4 CLRL (R3)CR9I 3; Yes -- clear DIFF array for this index 
F411 30s BRB 20$ 3; Loop back to check next index 
67 oy D1 CMPL (R5)CR8],MNR_PROSL_IPID(R7) ; Same process as last time? 
1 1 BNEQU 40$ ; No == go zero out DIFF 
6B OD TSTL (R11) ; Zero data item => swapped out 
11 1 BEQL 40$ ; Swapped out -=- go zero out DIFF 
6248 0D TSTL 5g) ERG? ; Swapped out Last time? 
of 1 BEQL 40 3; Yes -- 9° zero out DIFF 
6348 6B 624 C SUBL3 Saat hy, (R11), (R3)CR8] ; Calculate DIFF 
6648 57 00 OVL R7, (R6)CRBI ; Store proc data block ptr in ADDR array 
07 «11 we BRB 50$ t se. and continue 
6348 D4 CLRL (R3)CR8J ; Clear DIFF, indicating not a TOP candidate 
6548 67 00 ae MOVL  § MNR_PROSL_IPID(R7),(R5)CR8) ; Store PID 
6248 68 b0 MOVL (R11), (R2) CRB) 3; Store data item into DATA array 
20 Ad C MOVZWL COBSW_BLKLEN(RO),R1 : Get size of a data block 
| S| ae ot R1,R7 3; Point to next process in coll buffer 
5B. «1 co ADOL R1,R11 3 «ee and to next data item 
BE 5A F5 SOBGTR R16,10$ 3; Loop once for each proc in coll buffer 


3; A DIFF entry has been made for eery index up through 
3; the last process in the collection buffer. 

:; The following loop clears the DIFF entry for each 

: index between the Last one already done and the 

; last one in the DIFF array. 


58 06 INCL R8 ; Get next process index 
5B OOO00000'EF 00 MOVL SPTR,R11 ; Get ptr to System Info Area 
5B 0B AB 3C MOVZWL MNR_SYISW_MAXPRCCT(R11),R11 ; Get max process count 
58 «658~CO CMPL R8,R11 3 Any more process slots? 
07 =«—18 60s BGEQ 70$ : No -- skip clear loop 
6348 D4 "  CLRL (RB) RBI : Clear DIFF, indicating not a TOP candidate 
F9 58 SB F2 708 AOBLSS R11,R8,60$ : Continue to end of DIFF array 


a a a ad dd = 8 = = 8 8 3 ee 
SSS 


PUPP BB BB BBE EEE RWW 2 OO OO SO 


a +9 99 es vw 
OOM WOWIVIWO OM UNWIN SS FB SNINMDD OWI"S POA LOOMDOG SLE — 


IPRIPOPIPRINININININIDS 9 9 9 OP MPQOOOOOOOOCOCOCOWOOOOOOOOOWMO@CcICIaDCNCD  -—-* 
SODNOUES WIN $$ O OONAUE WN SO OO NAME WN 9 OD NAUE WIN OOONOusSwr —O 


RSB ; Return to caller 
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-SBTTL SUMMARY_TOP = Set up Summary for TOP 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This rors "8 


C to do setup for Summary processin 
the SYSTEM or PRO 

a 

Y 


d of 
ES class with the TOP giae ay format. It is not 
n th the A ie PROCESSES display format 


called ween. ae 9,0 . , 
splay forma 


or the tabular S 


The basic job of routine is to call FDB_SYS_TOP or FILL_DISP_BUFF 


with the ee, PR ES collection butter of the MONITOR request. 
This is ecconpl ts by loading the pointer to the current collection 
buffer with the first Zot lection buffer pointer, and then doing 
a normal FOB_SYS_TOP or FILL_DISP_BUFF call. The current collection 
buffer pointer is then restored to its original value before returning 
to caller. 

CALLING SEQUENCE: 
CALLS #1,SUMMARY_TOP 

INPUTS: 


4(AP) = address of a pointer to the CDB (Class Descriptor Block) 
for either the SYSTEM or the PROCESSES class. 


IMPLICIT INPUTS: 

MCAPTR - pointer to MCA (Monitor Communication Area) 

MRBPTR = pointer to MRB (Monitor Request Block) 

SPTR = pointer to SYI (System Information Area) 

PROCS_CLSNO = class number for the PROCESSES class 

SYS_TOP_VEC = vector of pointers to SYSTEM class TOP arrays 
OUTPAITS: 

None. 

IMPLICIT OUTPUTS: 
The 5 TOP arrays (DATA, DIFF 
are filled with 
buffer. 

ROUTINE VALUE: 

RO = SS$_NORMAL 

SIDE EFFECTS: 

None 


alle 
cEs$ 
rizi 
STEM 
this 
OCcESS 
hed 


ORDER, PID, ADDR) ¥ 
information from the first collection 


me el ee ee ee ee ed ed ed ed od Sd Sd 3 od dw) = = 2 = = 3 8 2 1 1 
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00 32 Al 09 


51 08900000" EF 
asad al 00 


52 00000°EF 
sae 2 0% 
10 4B A6 8 


59 ec A6é 
59 8 Ad 
00000000‘ EF 


1F 


5A 00000038'EF 
5 58 

5 04 

59 «6A 

58 = 58 
00000000 EF 
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-ENTRY SUMMARY _TOP, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 


SUMMARY _TOP = S 


AO 


Borneo 


PP 


Fo ot at at a aM UMUMUAAAAAAUMUMAAAAAMAAAMAUMAAAUAMAAAAMAMetAteeee 


©0909 C9 Cd Gd Cd 09 Cd Cd CD CD C9 CD OD CD CD Cd OD Cd Cd CD CD CD CD C9 CD 0D CD C9 C9 0D CD 0909 C909 WI NINI NII 


~ 


POLLED NOOW 


>>>rroonononovnns 
rororore 


= -— 
v04-00 P 1 
; oo 1, 


r 
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MCAPTR,R1 ; Load MCA pointer 
#MCASV_TOP_DISP,MCASW_FLAGS(R1),10$ ; Indicate no TOP displays 

; «e+ Gone yet for PROCESSES 
#MCASV_S_TOP_DISP,MCASW_FLAGS(R1),20$ : ... or SYSTEM class 


abd ; Load CDB pointer 
MRBPTR,R ; Load MRB pointer 
#MRBSV_DISPLAY ,MRBSW_FLAGS(R1).50$ ; No need to clear DATA array 
; see If not already used for displaying 
SPTR,R2 : Load SYI pointer 
MNR YI$W_MAXPRCCT(R2) ,Re ; Get max process count 
of DATA arr 


r aR ; Pass glee ay 
#COBSV_SYSCLS,CDBSL_FLAGS(R6),30$ ; Br if SYSTEM class 


; Call CLEAR_DATA to clear the DATA array for PROCESSES class 


COBSA_BUFFERS(R6) RO ; Pass address of DATA array 
MBPSA_DATA(R9) ,R9 2 ape 
CLEAR_DATA ; Clear DATA onrer in preparation for 

3; «ee Call to FILL_DISP_BUFF 

: CCLEAR_DATA subrtn destroys RO-R5 and 
50$ ; Go continue..... 


OP _VEC,R10 ; Get addr of vector of ptrs 
1 ; Save array Length 
; Number of arrays to clear 


R9 must contain array addr 
R8 gets array Length 

Clear DATA array in greperet ten for 
--- call to FDB_SYS_TOP 

CCLEAR_DATA subftn destroys RO-R5 and 
Point to next array 

Loop back to process next one 


z2zaT~LES-llUNN OO 
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1403 4 3 H 
14C5 4 3; Load PROCESSES current collection buffer pointer ren BUF FA) 
14C3 4840 ; with first collection buffer pPointer (MBPSA_BUFFIST); then | 
14C3 4841 ; call FDB_SYS_TOP or FILL_DISP_BUFF to get the” 5 TOP arrays 
14€3 4 tg : loaded with data from the first collection buffer. Finally, 
Ve 2 rb 3 restore original value of MBPSA_BUFFA for caller's use. 
14€3 4845 
14€3 4 6 50$: 
50 00000000 1 0 14€3 484 MOVL #<PROCS DERO}ERO paaene RO ; Compute ortset Pas PROCESSES CDB 
50 pe O°E o 14CA 4848 MOVAB ER BUEAD Index to CDB addre 
DO 1402 4849 MOVL DBSA “aurreh S$(RO) ,R2 ; ; Load buffer block ptr 
58 $ DO 1406 4850 MOVL MBPSATB FFA(R2) RO Save ¥"7- buffer pointer 
62° 04 A200 1409 4 31 MOVL MBPSA ~BUFFAST CRS) MBPSA _BUFFACR Move first to current 
18 48 A6 «608~—=«CO#EC 14e2 2 38 BBS #CDBSV_SYSCLS,CDBSL_FLAGS(R6),60$ ; Br if SYSTEM class 
14E i822 ALLOC 4,R0,R1 ; Allocate 12 tt te Bar | bytes 
14EF 4 2$ i.e. for FILL_DISP_BUF all 
61 56 DO I14EF 485 MOVL R6,(R1) ; CDB pointer “tnte ui taseted space 
50 ODD 14F2 $828 PUSHL RO ; Push pointer to time quadword 
51 DD 14F4 485 PUSHL R1 : over p gPecges of CDB pointer 
F68BC CF 02 FB 1476 4860 CALLS os FILL_DISP_BUFF 3 TOP arrays 
OD 11 14FB 4861 BRB 70§ : 6 BRM pte. 
14FD 4 $6 60$: 
56 DD 14FD 486 PUSHL R6 ; Pass SYSTEM CDB address 
OOOOO103"EF ODF I4FF 4864 PUSHAL FAOSTK 3 pase t f'sphay buffer address 
FB7F CF 2 FB 1305 ? rH 708 CALLS #2,FDB_SYS_TOP : TOP arrays (doesn't use ORDER) 
62 58 00 1308 dBs? MOVL R8,MBPSA_BUFFA(R2) ; Restore current collection buffer ptr 
50 01 00 150d tpeo MOVL #SS$_NORMAL ,RO ; Indicate success 
04 1510 4870 RET 3 ee. and return 
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aa 
oe 


; FUNCTIONAL DE 


Issues 
output 


INPUTS: 
4 (AP) 


8( AP) 


IMPLICIT INPU 
MCAPTR 
MRBPTR 
SPTR 


MCASL_P 


PREV_PD 


OUTPUTS: 
None 


SOOGOGDOSOOOOO OOOO 0 OO OW 000069 C9090 INI NNNS 


this di 
PREV_PD 


ROUTINE VALUE 
RO = SS 

: SIDE EFFECTS: 

none 
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DISPLAY_PROCS = Put PROCESSES Display Output to Screen 


SCRIPTION: 


calls to various SCRPKG routines to display screen 
for the PROCESSES class (regular display). 


- address of CDB (Class Descriptor Block) pointer 
for the PROCESSES class. 


- address of quadword containing the system time 
value of the latest collection buffer. 


TS: 

= pointer to MCA (Monitor Communication Area) 
= pointer to MRB (Monitor Request Block) 

- pointer to SYI (System Information Area) 


ROC_DISP = Longword Sonceteing number of processes 
to display this interval. 


- longword containing number of processes 
displayed for the previous interval. 


IMPLICIT OUTPUTS: 
Entire display buffer (FAOSTK) displayed to SYSSOUTPUT for 


splay event. 


-- longword set to the number of processes displayed 
this interval, for use next time through. 


$_NORMAL, or screen package error status. 


PROCS, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 


a4 (AP) ,R6 ; Load CDB pointer 
MCAPTR,R11 ; Load MCA pointer 
CDBSA_BUFFERS(R6),R10 ; Load address of buffer block 


P 1 
9° 1) 


SARA RB HUY oy EAB RAL ny Eh 
23 9 AA 00 1 3 4 MOVL ners. PR COE EB CRIT) IR ; Get pointer to FAO s 
DO 1 a3 6 MOVL one L=PROC_DISP(R11),R i number o procs to y ee 
0 } 1S2A 4 BNEQ Continue if we have some 
014 1$2C 4932 BRw 110$ : Get out quickly if none to display 


59 
28 32 AB C6 
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Pot tt ot eS 
WO00000000000000 


wwownowowowowowvono 
HAAAAAAIMUI ES BPS 


OOWDNAUES WN OOODNAULS WO 


4961 


5 


la MONTOR.SRC 


; Compute number of Lines to erase (difference in the number of 
; processes from previous display to this one). 


ITOR.MAR;1 


; Clear the display area if necessary. 


BLEQ 
ALLOC § 6,R1,R3 
BLINK 


RO, 30$ 
BRW DPROCS_RET 


20$: 


CMPL = R7, #VTDATALINES 
SUBL3 R7,W*PREV_PD,R9 


: Compute and format ASCII uptime for setup display Line. 


Ro ; Assume no 
BBC #MCASV_ERA_SCRL .MCASH_FLAGS (R11) , 30S 
CMPL W*PREV_PD ,AVTDATALINES 
; Erase entire display area 


; Continue if status OK 
; Return with status if failed 


; Current display a single screen? 
; No == continue 
; Yes -- calc Lines to erase 


um Lines to erase 

bit clear, no need to erase 
Previous display a single screen? 
Yes -- skip the erase 
Get 6 bytes for call to BLINK 


(already logged) 


30$: 
ALLOC 8,R1,R2 ; Allocate 8 stack bytes for time calcs 
MOVL  SPTR.RG : Get SY] pointer 
MOVG = MNR_SYISQ_BOOTTIME(R4),(R2) ; Boot time into calc area 
MOVa a8(AP),RO ; Get collection time 
SUBL2 RO, (R25 : Subtract coll time from boot time 
SBWC R1,4(R2) arte 
ALLOC 13,R4,R1 >: Get ASCTIM output buffer 
SASCTIM_S TIMBUF=(R4), TIMADR=(R2), CVTFLG=#0 ; Get ascii uptime 
BLBS ~RO,40$ ; Continue if status OK 
BRW DPROCS_ERR ; Log error & ret with status if failed 
; Put out process count and uptime. 
40$: 
MOVL R7, (R2) ; Re-use R2 as ptr to SFAOL parm List 
MOVL RG 9 (ae) ; Insert_uptime descr ptr into parm List 
ALLOC 2,R1,R ; Alloc 2 bytes for DISPLAY_PUT flags 
MOVW = #1, (R3) 3 Set bit to force DISPLAY_PUT thru $FAOL 
PUSHL R2 ; Push ptr to SFAOL parameter List 
PUSHL PROC_SETUP_STR+4 ; Push address of setup string 
PUSHAL PROC_SETUP_STR ; Push length of setup ote ies 
PUSHL R ; Push DISPLAY_PUT request flags 
CALLS eae SPLAY_PUT ; Put out screen setup string 
BLBS RO,50$ 3; Continue if status by 
BRW DPROCS_RET ; Return with status if failed (already logg 


15D7 4990 ; 
1507 4991 ; 
1507 1388 ; 
1507 499 
1507 4994 508: 
15D7 4995 ALLOC 
2 00000048 8F DO 15E&4 4996 MOVL 
04 A2 senate 4 13E8 4997 MOVL 
58 ..¥ or 4998 MOVL 
15F6 4999 608: 
OF 58 01 15F6 5000 CMPL 
42. 15 136° 2003 BLEQ 
15FB § 
QE OOOOOOOO"EF 9 1768 3004 BLBC 
51 _O00000000"EF 00 1602 5005 MOVL 
0243 Ai 05 €E0 1609 2008 BBS 
160E 5007 
75—«11 1905 5008 BRB 
1610 5009 70$: 
54 OF 00 1919 api9 MOVL 
OO8F 30 161 011 BSBW 
70 50 «=6E9 «61616 2018 BLBC 
1619 501 
0071 30 1619 5014 BSBW 
6A 50 €9 161C 5015 BLBC 
161F 5016 
012A 30 161F 5017 BSBW 
64 50 +E9 lose 5018 BLBC 
16 5019 
1625 5020 ALLOC 
OOCA 30 16 ¢ 5021 BSBW 
5050 E9 16 2058 BLBC 
1638 502 
58 OF C2 1638 5024 SUBL2 
B9 11 1638 5025 RB 
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Borage t 


RB ,#VTDATALINES 
80$ 


CTRLCZ_HIT,70$ 
MRBPT 


130$ 
#VTDATALINES,R4 
FILL SCREEN 

RO, DPROCS aERR 


PRINT SCREEN 
RO,DPROCS_ERR 


HOLD SCREEN 
RO,DPROCS_ERR 


6,R1,R3 

BLINK 
RO,DPROCS_RET 
#VTDATALINES,R8 
60$ 


71986 02:01:84 


; Loop putting out a Line for each process 


AX/VMS Macro V04-00 Page 125 MON 
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: Allocate a descriptor 
3; Move const len of FAO output buff 
: Load ptr to FAO output buffer 
; Load no. of procs for this Tacervat 


3; Will processes fit in display area? 
; Yes -= go put them there 


: No == 99 fill — if collecting 
; peers ion hes end 
RB pot nter 


R1 Load M 
PMRBSV, bISP. TO_FILE, MRBSU_ FLAGS(R1),70$ 


7 Go fill screen if output to file 
; Quit displaying 


3; Do a screenful 
: Exit if error 
: Force SCRPKG to display screen 
; Exit if error | 
; Wait between screenfuls 
; Exit if error 
; Get 6 bytes fee call to BLINK 
; Erase entire di ee area 
: Return with status if failed 
: (already logged) 
| 
| 
| 
| 


; Calculate remaining processes 
3 ee. and go get them displayed 


MONITOR 
v04-000 


OE 00000000 


51 00000000" 
02 45 Al 


54 
2F 


53 
5458 


00000000 * GF 


nl 
s,s @ 


EF 
05 


33 
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DISPLAY_PROCS = Put PROC splay Ou 5-SE MONTOR. SRE RCIM MONI TOR.MAR; 1 v4 
163D 7 80S: 
BLBC CTRLCZ_HIT,90$ ; Go fill screen unless CTRL=-C or Z hit 
: Colsection has ended 


mo — MoO 
“©ooo —- Ooo 


OoOmMmnoOo oO-—9 
MOODUTIST —Wo 


Erase current Line 
Quit if error 

Get next Line number 
Go erase next Line 


R4 
CALLS) = #2, Me wy LINE 
BLBC +e DPROCS_ERR 


INCL 
SOBGTR RS, 100$ 


138 $8 

1844 0 

1644 0 MOVL MRBPTR,R1 oad MRB pointer 

164 1 BBS PMRBSV. DISP. TO_FILE, mResi_ FAGS(RID 90$ 

165 § :"Go fill screen if output to file 
165 BRB 130$ 3; Quit displaying 

165 4 90$: 

165 5 MOVL R8B,R4 ; Load no. of procs for final screenful 
165 036 BSBB FILL_SCREEN -« and put them out 

1657 5037 BLBC RO, DPROCS S_ERR : Exit if error 

165A B38 

165A : 

leah ok 3; At this point, all process Lines have been sent to the SCRPKG. 

165A S042 ; If necessary, erase individual screen Lines left over from 

165A abe ; previous display event. 

165A 5044 ; 

165A 5045 ; 

165A 5046 MOVL R9,R3 ; Retrieve number of Lines to erase 
165D 5047 BLEQ 110$ : Continue if none to erase 

165F 5048 ADDL3 #FIRST_DATA_LINE,R8,R4 ; Compute Ist Line to be erased 
1965 5049 100$: 

166 2020 PUSHL #1 Always erase from column 1 

1665 5051 PUSHL . at current row 

1667 e026 

166E 505 

1671 5054 

1673 5055 


dD 6 
fo orgence Monitor Utility bmi is EP=-1984 3y:8¢ AX/VMS Macro Vv04-00 Page 192 
- Put PROCESSES Display Ou 5-SEP-1984 333 4 (CMONTOR. sat ar ONITOR.MAR; 1 3) 


ov 
oe 
“on 


: Save number of processes (this interval) for use in next interval. 


VMS 
AYP 
1676 7 
1838 38 | 
1676 5 
1676 60 
1676 61 1108: 
por Ct 57 4 1676 °¢ MOVL emember number of procs for next interval 
00 32 AB «2O06SsCé€E 1678 6 BBSS Rneasy® RERK. SRL. MCASW_ ruhestnit>. 120$ 
19 rt: 1208 : Indicate erase display area next int 
08 10 16 66 "  BSBB —s PRINT_SCREEN : Force SCRPKG to display the screen 
04 E9 16 6 1308 BLBC RO,DPROCS ERR ; Exit if erro 
50 01 00 108 $3 "MOVE #SS$_NORMAL ,RO ; Successful status 

1688 071 DPROCS_RET: 

04 \ ; b7¢ RET ; Return with status set 
1889 Oye DPROCS_ERR: 

03A0 30 1989 075 BSBW DISPERR : display error 

04 1oae 5077 : urn nith status 
168D 5078 
168D 444 3 
1990 +H ; PRINT SCREEN subroutine. 
1680 O8¢ : Forces SCRPKG to actually output entire screen. 
168D 5084 ° 
1950 +H PRINT_SCREEN: 

00000000'GF 00 FB 168D 2089 CALLS #0,G*LIBSPUT_BUFFER ; Output SCRPKG buffer and stop buffering 
0D 50 £9 1694 5088 BLBC 0,10$ ; Exit if error 
QOOO20AF'EF  7F 1697 3089 PUSHAQ SCRDSC : Push MONITOR buffer addr 
Q00000000'GF 01 FB HH 44 108: CALLS #1,G*LIBSSET_BUFFER ; Set buffering mode again 

05 16A4 209¢ we ; Return with RO set 

16A5 509 
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The FILL_SCREEN subroutine fills the display area with 
the numbér of processes indicated in R4. 
REGISTER INPUTS: 
R2 -- Pointer to an lett 1 tg stack area consisting of an FAO 
output descr 
This register” net “modified by FILL SCREEN. 
R4 -- —s of processes to display (less than or equal 
isplay area size 
this register is destroyed by FILL SCREEN. 
R5 -- Pointer to current process in display buffer (FAO Stack). 
On exit, RS is updated to point to the first process 
to be Te AF on the next screen. 
SCRATCH REGISTERS: 
R1 
R3 -- Pointer to FAO control string 
R10 -= Number of display Lines to advance after PUT_LINE. 
RETURN REGISTER: 


RO -- On exit, contains status of most recent SCRPKG call. 


MONTOR. SR tim ONITOR.MAR; 1 
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DISPLAY PROCS © Put PROCESSES bisblsy Ou Sa-SEP=19B4 H2:01154 FMONYOR. eae amo; foncmar:1 29° 192, vol 
16A 1 § FILL SCREEN: 
194 1 
: it 1ga g PUSHE Sr IRST DATA_LINE See Gest. PROCESSES | 
S «co Tis 
00000000" GF 03 FB 1€A9 5130 CALLS #Z.GNSCRSSET_CURSOR 2+ display Line | 
48 E 1683 ! 1 BLBC RO,40$ ; Exit if error 
SA 01 0O 198? | 108 MOVL #1,R10 3; Load number of Lines to advance 
54 0 D1 1686 5135 CMPL #1,R4 3; Only one process left to display? 
O2 12 1689 5156 BNEG 208 ; fo = continue — 
A D4 1688 51 CLRL R10 3: Yes -- indicate no advance 
1680 5138 
16BD 5139 ; 
1980 139 ; Choose an FAO control string based on process residency 
16BD 136 
16BD 5143 20$ 
53 00002631'EF DE 16BD 5144 MOVAL PROC_RES_STR,R3 ; Assume this process is resident 
3C AS) «6S (164 Rez TSTL MNR_PROSR_FSIZE-4(R5) : Is last longword for this process zero? 
12 16€7 5146 BNEQ 0$ ; No == process is resident 
53 00002676'EF ODE +9 ale MOVAL PROC_NRES_STR,R3 : Yes -- process is non-resident 
1600 5149 ; Issue FAOL 
16D0 2129 : 
1600 5151 
16D0 2126 3 | 
1600 515 SFAOL_S CTRSTR=(R3), OUTBUF=OUTDSC, PRMLST=(R5) | 
18 50 E€9 16€3 5154 BLBC RO,40$ ; Exit if error 
16E6 5155 
16E6 5156; 
16E6 5157 ; Send process output Line to SCRPKG 
16E6 5158 ; 
16E6 5159 
5A DD 16€6 5160 PUSHL R10 ; Push number of Lines to advance 
52 DD 16€8 5161 PUSHL R2 ; Push addr of FAO output Conceietor 
O0000000'GF 02 FB 16EA 3186 CALLS #2,G*SCRSPUT_LINE 3; Give one process Line to SCRPK 
0x50 E9 16F1 5168 BLBC —-RO.408 : Exit if error | 
55 00000040 8F CO 16F4 5165 ADDL2 #MNR_PROSK_FSIZE,R5 ; Point to next process in FAO stack 
B8 54 F5 16FB 5166 SOBGTR R4,10$ 3 Loop back to do next process | 
16FE age 40$: 
05S 16FE 5168 RSB ; Return 


01 

08 

51 _ 00000000’ EF 
03 43 Al 08 

6—E 02 


00000000°GF 02 


50.01 
51 wrt edt 
23 43 Al 0B 


43 Al OE 
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BLINK Subroutine. 
Erases entire gore display a 
Also tots DISPLAY_PUT to replece the status 
(footing) Line if necessary. 
R3 = Address of 6-byte stack area for call to DISPLAY_PUT: 


1) lLongword to hold Length of status string; 
2) pair of bytes used for request flags. 


Upon exit, RO contains status from DISPLAY_PUT call. 
Register R1 is destroyed by this subroutine. 


LINK: 
PUSHL #1 ; Column 1 
PUSHL ds _DATA_LINE : First Line ne — display area 
MOVL PTR R1 Get MRB point 
BBC aAReSV: MF SUM, MRBSW_ FLAGS(RI) , £108 Br if. not m.f. summary 
a ADDL2 #2,(SPY : 1st data Line lower for m.f. summary 


CALLS #2,G*SCRSERASE_PAGE ; Erase to end of screen 


: Now replace the footing Line that was erased if necessary 


MOVL ake. NORMAL ,RO ; aeouns normal status 
PTR, Get MRB pointer 
BBS PARES “MF SUM, MRBSW_ FLAGSERID 90s 
refresh status if m.f. 


BITW #<MRBSM_PLAYBACK+MRBSM_ siMMARY +MRESH. RECORD>, MRBSW FLAGS (RID - 
; Any status fields need refreshing? 


BEQL 208 3; No -- ee exit 

PUSHAL W*STATUS_PARMS 3 Push addr of SFAOL parameter List 

PUSHAB W*STATUS_STR+1 ; Push address of status string 

MOVZBL W*STATUS_STR,(R3) ; Load status string Length 

PUSHL R3 : Push its addre 

OVW #1,4(R3) ; Set bit to toree DISPLAY_PUT thru $FAOL 

PUSHAL ; Push ptr to DISPLAY_PUT Fequest flags 
20$ CALLS #4,DISPLAY_PUT ; Put out status string on bottom Line 

RSB ; Return with status in RO 
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; HOLD_SCREEN Subroutine. 

: Waits after a full screen has been displayed 

s in order to tet — user see it before the 

: next screenful arrives. 

3 Upon exit, RO contains status from $SETIMR or $WAITFR. 


; Register R1 is destroyed by this subroutine. 


HOLD_SCREEN: 


Ok a a dd 
QW 
COON NN NAAM ES SSPE SLL LLL LEE SE 
MO OODNAVUE WN "OOO NAOUES WO OO~N 


50 01 00 MOVL #sss RORAAL «8 3; Assume ngraat status 
31 OOOODD0O'EF EB BLBS CTRECZ HIT att : If cTRL=C r Z hit, don't hold 
51 srt ell ie) MOVL MRBPTR>R1 Get 5 pointer 
25 43 Al 05 E0 BBS SRRBSY “DISP_ TO_FILE, mRes_ FLAGS URI 10$ 
hold if output to file 
SSETIMR_S EFN=#BE’_EV_FLAG, pavTimevIEWING <b DEL 

: Set time between screens 
0D 50 =«2«€9 BLBC RO,10$ : Exit if error 

108 SWAITFR_S EFN=#BET_EV_FLAG ; Wait between screenfuls 

05 "  RSB ; Return with status 
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FUNCTIONAL DESCRIPTION: 


Constructs FAO control string for a PROCESSES/TOP screen | 
and calls DISPLAY_PUT to send the screen to the SCRPKG. 


INPUTS: 


(Class Descriptor Block) pointer 
for the PROCESSES class. 


4(AP) = address of 443 
IMPLICIT INPUTS: 
FAOSTK = FAO parameter List for a TOP screen 


TOP_PROCS - exe esti count (up to 8) of 
TOP processes to display. 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 


Entire display buffer (FAOSTK) displayed to SYSSOUTPUT for 
this display event. 


ROUTINE VALUE: 
RO = SSS$_NORMAL, or screen package error status. 
SIDE EFFECTS: 


| 
= 
| 
| 
| 


SISSIES SSNS SIP PP PDD PAA De TU 
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0E7C sENTRY DISPLAY_TOP, “M<R2,R3,R4,R5,R6,R9,R10,R11> 
56 048C OD MOVL @4 (AP) ,R6 ; Load CDB pointer 
5B 04 A6 OD MOVL CDBSA_FAOCTR(R6) R11 ; Load addr of FAO control string 


: Loop which concatenates as many FAO control ptring segments 
ng 


> se ee et 9 2 4 4 4 4 4 a a a bd a ts as sb — bd a tb bd ss bt a a  _t e >™ 


79 
79 
79 91 ; as needed to build the portion of the control str or 
79 92 ; processes to be displayed. The portion for null Lines is 
79 93 ; built Later. 
795 $595 
ace" F 08 90 179 38 MOVB #FIRST_DATA_LINE,W*TOPLNNO ; Load first TOP Cteploy Line no 
oa ier 4 4 4 MOVZBL W*TOPSTR,RO ; Load Length of FAO ctr str for 1 Line 
A "CF A f 9 MOVZBL W*TOP_PROCS,R10 3; Load number of TOP procs to display 
7” 6 mn BF 108 BEQL 208 : Branch if none 


—_———— 
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01 A9 #71,1(R9) 
02 a9 5B 04 A6 C SUBL3 CDBSA_FAOCTR(R6) .R11,2(R9) ; Cale size of FAO control string 


O103'CF OF PUSHAL W*FAOSTK ; Push ptr to S$FAOL parameter List 
04 AG OOD USHL 1 idhaaaaa ; Push address of control string 
02 AD =sOOF PUSHAL 2(R9) ; Push Length of control string 
59 oD USHL R9 ; Push DISPLAY_PUT request flags 
OQOOOIADA*EF 04 FB CALLS #4,DISPLAY_PUT ; Put out screen setup string 
03 50 €9 BLBC RO,DTOP_RET ; Return with status if failed (already logg 


50 01 00 MOVL #SS$_NORMAL ,RO ; Indicate success 


DTOP_RET: 
RET 


68 ou’ 9 28 I7A 1 MOovC 9,W*TOPSTR+1, (R11) ; Move ctr str segment to ctr spring 
28 fA § ADOL 9,R11 3; Point to next available byte in ctr str 
26C6'CF 2 17A ADDB a W*TOPLNNO 3; Update cursor control to next disp Line 
EF SA F 17s) : SOBGTR R 6,10$ 3; Move one segment for each process 
17B4 3 
17B4 3 ; Now Loop moving in control string segments for each 
128% 8 : nuil Line to be displayed. 
Fee ERI 20g 
5A 18 AB 0022'CF 8 17B4 1 ; SUBB3 wW*TOP_PROCS,CDBSL_ECOUNT(R6),R10 ; Calc number of null Lines 
ip 1 7eB 531 BEQL : Branch if none 
26F 2° CF gece ce 90 1780 14 MOVB W* TOPLNNO yao 3; Line number of first null Line 
59 GEF'CF 9A rte 12 30s MOVZBL W*ERLINE_STR,R ; Length of “erase Line’’ control string 
68 aed 59 28 17C9 1 j MOVC3) = R9,W*ERLINE_STR4+1,(R11) ; Move ctr str segment to ctr string 
B 59 ¢cO I17CF 18 ADDL R9,R11 3; Update control String pointer 
26F2°CF 02 ee Ag 19 ADDB #2 aaa ; Update cursor control to next disp Line 
EF SA F 44 $9 SOBGTR R10,3 $ 3; Move one segment for each null Line 
7DA 3 
PDA ; Call DISPLAY_PUT to put the screen image to SYSSOUTPUT. 
7DA . 
40$: 
; ; ALLOC 6,R1,R9 ; Alloc 2 bytes for DISPLAY_PUT flags 
328 3 «+. and a longword for ctr str size 
01 90 23 3 MOVB #1,(R9) ; Set bit to force DISPLAY_PUT thru S$FAOL 
01 9 ; , MOVB ; Force DISPLAY_PUT to output it now 
5334 
5335 
i 
; ; 
9 
40 
23 


— 4 2 sn a 4 is 
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; Return with status set 


SS 
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-SBTTL DISPLAY_HOMOG = Put Homog Class Display Output to Screen 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


Issues calls to various SCRPKG routines to display screen 
output for the current (homogeneous) class. 


INPUTS: 


4(AP) = address of COB (Class Descriptor Block) pointer 
for the current class. 


IMPLICIT INPUTS: 


MCAPTR = pointer to MCA (Monitor Communication Area) 
MRBPTR = pointer to MRB (Monitor Request Block) 


CDOXSL_PREV_DCT = Longword containing number of elements 
displayed for the previous interval. 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 


Entire List of elements for this homogeneous class 
displayed to SYSSOUTPUT for this display event. 
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SOOOCOCOSCoOOOoCOCOOCOCOOOOOOOCOOOOOOOOOoOOOoOO 
leslasiaslaslaslaslaslaslasteslasleslaslaslaslaslasliaslasleslaslaslasleslesleslaslesleslesl esl esl esl el aa! 
PN A A BR Oe RR Re I tee ee ee 


0000900 09 09 0d Gd Gd Gd Cd 09.09 OD 0d 0D OD 09 09 Od OD OD OD 09 OD OD OD CD CD OD OD OD OD Cd OD CD CD OD GD CD CD CD 0D GD. 0D 0D 0D C9 09 CD 0D OD CD CD. CD 0D 


ee a a a a a a at a —  — — § 


7 CDOXSL_PREV_DCT == Longword set to the number of elements displayed 
if this interval, for use next time through. 
3 , ROUTINE VALUE: 
+3 § RO = SS$_NORMAL, or screen package error status. 
Be : SIDE EFFECTS: 
E none 
E 3389 
4 3 “——_ 
09E8 16 oy ENTRY DISPLAY_HOMOG, “M<R3,R5,R6,R7,R8,R11> 
5 4 BC 4 1 5 MOVL @4 (AP) ,R6 ; Load CDB pointer 
5 206 D 14 539 MOVL CDBSA_CDX(R6),R7 > Load CDX pointer 
5B O0000000°EF 00 18 94 MOVL PTR,R11 3 Load MCA pointer 
1F 5395 ALLOC 6,R1,R8 : Get 6 bytes for calls to BLINK 
: > 3 eee and DISPLAY_PUT 
28 A? ODS C 9 TSTL CDXSA_DISPNAM(R7) 3; Check if we have a name display rtn 
\¢ é 9 BNEQ 10$ ; Br if we do 
009E 3 1 5400 BRW 80$ ; Else, go exit if not 
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PRR RRR REPRESS 


RPRNoPONOPONOPON 2 2 = MODOC OOOO 


CNAME WN OOONA UE WN O OONOUE 


BBC #MCASV_ERA_SCRL,MCASW_ vAFLAGE IAIN} 208 
CMPL = CDXS$L pREV pCT(R7), 
@VTDATAL 
20$ 
BSBW Ss BLINK 

RO, 20$ 
BRW DHOMOG_RET 


; Display item name if necessary 


BBC #MCASV_ERA_SCRL ,MCASW ieee tat Ye 308 
CMPB GgreS_sesser car), LA} 


BLEQ 


ALLOC 8,RO,R1 
BSBW = DISP_HOM_ITMNAM 


BLBS RO, 35$ 
BRW DHOMOG_RET 


39:3¢ AX/VMS M 
1:24 


MONTOR. sre 


clear, no need to erase 
; Previous display a single screen? 


Yes -- skip the erase 

Erase entire display area 
Continue if status 

Return with status if failed 
(already logged) 


3 t clear, need to display 
; More than one item? 
; Br if no (no need to display) 


; Alloc 2 lwords for FAOL parm stack 
; Display item name string 
Continue if status 


Ok 
Return with status if failed 
(already logged) 


RCIM ON TOR. MAR; 1 
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1 430 ; 
} 3 : ; Loop putting out a screenful each time 
1869 5433 ° 
1 9 434 35$: 
58 1C A? DO 1869 5435 MOVL CDX$L_DCOUNT(R7) ,R8B ; Load no. of elements this interval 
55 04 : re) r § 408 CLRL R5 3: Init element index 
OF 58 »d1 1 oF 4 8 CMPL —sRB, #VTDATALINES ; WiLL elements fit on the screen? 
39 «15 : i; tis BLEQ 60$ ; Yes == go put them there 
OE OOOOOOOO'EF €9 iN red BLBC CTRLCZ_HIT,50$ : ; folie 99 nha sereae if collecting 
ollection has end 
51 y owt ned EF DO 187 108 MOVL MRBPTR,R1 oad MRB pointer 
02 43 Al 05 €0 188 444 BBS PARBSV. BISP. TO_FILE, nesi_ FLAGS RI, 50$ 
188 445 l screen if output to file 
53. 11 br tf rh 50s BRB 90$ : Quit displaying 
55 oD 1889 448 : PUSHL R5 : Push penes "ae eteneny index 
OF ODD 1888 2763 PUSHL #VTDATALINES S eee WO. ts to display 
56 6D tty re PUSHL R6 3 «ee and CDB address 
00001934'EF 03 FB 188F 5482 CALLS #3,FILL_HOMOG_SCREEN : Display a screenful of elements 
46 50 €9 1896 545 BLBC RO, DHOMOG RET~ : Exit if error (already logged) 
55 OF CO +44 etee ADDL2 AVIDATALINES. RS : Compute element index for next fill 
FEAD 30 1896 5456 BSBW HOLD_SCREEN ; Wait between screenfuls 
3— 50 = ED + +4: eH BLBC RO, DAOMOG_ERR ; Exit if error 
FESA 30 182 459 BSBW BLINK ; Erase entire Sieplay area 
37 50 €9 18A 460 BLBC RO, DHOMOG_RET : Return with status if failed 
18A8 5461 ; (already logged) 
58 OF C2 Hb 2086 SUBL2 #VTDATALINES,R8 ; Calculate remaining elements 
C2 11 18AB 546 BRB 40$ 3 eee and go get them displayed 


| 
ee) 
Nee eee 
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18AD 5465 
AD § 3 
. 467 ; Fill a screen with remaining elements 
AD 8c89 
AD 0 60$ 
OE OOOOOOOO'EF €E9 AD 1 BLBC CTRLCZ_HIT,70$ 3; Go fill screen unless CTRL-C or Z hit 
4 § : Collection pes ended 
opyoogoo" er F OD B4 MOVL MRBPTR,R1 pointer 
02 4 E 8 BBS ORRBSV. _DISP_TO_FILE, mRasiy_ FLAGS Cr ),70$ 


ill screen if output to file 


1A 1 70$ BRB 90$ ; Quit displaying 
33 DD : PUSHL R5 3; Push eceretag element index 
8 OD PUSHL R8 eee NO. ts to display 
56 =D PUSHL R6 3 eee and CDB address 
00001934°EF 03 FB CALLS #3,FILL_HOMOG_SCREEN 3 piseley final screenful of elements 
0D 50 = ED BLBC RO,DHOM OnOG JRET™ ; Exit if error (already logged) 


Pat this point, all elements have been sent to the SCRPKG. 


0090909090909 0909 INI NINN NIN NNN OO 
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a a ed ed od dd 8 od dd 3 
ra 


coco coco 
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18D 490 : 
! : 233 ; Save number of elements displayed this interval for use in next interval. 
18D 138 ? 
18D 494 80S: 
20 A? =©1C A?) DO 18D 495 MOVL CDX$L_DCOUNT(R7), = 
18D 496 cOXSL PREV_DCT(R?) emember no. of elts for next intv'l 
00 32 AB 06+ «62 «1807 «#549 BBSS #MCASO_ERA_SCRL .MCASW_ FLAG Rites 90$ 
| 43 rh 908 : Indicate erase display area next int 
50 01 00 } 43 9 MOVL #SS$_NORMAL ,RO 3; Successful status 
18DF ¢ SOMOS MET 
04 } DF 2 ? RET ; Return with status set 
18E0 5505 DHOMOG_ERR: 
0149 30 «1 3 209 BSBW DISPERR 3 £09 display error 
04 18€E 5 RET 3 urn with status 


(84) 
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Display -SEP- 2:01:24 (CMONTOR. SRE €3 MONITOR.MAR; 1 


= 


DISP_HOM_ITMNAM Subroutine. 

patts DISPLAY =PuT to a lay the item name string 

in the head cing t or this homogeneous class. It is 

entered into the lh buffer, but not actually 

output to the terminal. 

Upon input, 

R1 = Address of 8-byte FAOL parm stack for call to DISPLAY_PUT 
R3 = Address of 6-byte stack area for call to DISPLAY_PUT: 


1) lLongword to hold Length of status string; 
2) pair of bytes used for request flags. 


R6 = Address of CDB 
R7 = Address of CDX 


Upon exit, RO contains status from DISPLAY_PUT call. 
Register R1 is destroyed by this subroutine. 


DISP_HOM_1TMNAM: 


2601'CF 06 90 MOVB #ILN_REG,W*ITMLNNO : get ‘2 yt ~- or reg. displays 
50 QO0000000'EF 00 MOVL MRB MRB p 
5 43 AO 1 BBC #MRBSV_ pot MRBSW_ FLAGSiRO) 10S: as if” not m.f. summary 
2601'°CF 02 2 10s SUBB2 #2,W*ITMLN Adjust r row no. for m.f. summary 
61 OO000°CF 9A MOVZBL W“NAME_COL,(R1) ; Get col number for name string 
. oa DEC ; Express as additional spaces 


L ; 
MOVZBL CDXSB_IDISINDEX(R7),RO ; Get item index for this disp event 


MOVZBL @CDBSA_ITMSTR(R6)CROJ,RO ; Load IDB item number 
MULL2 #I1DBS$K- ite NGTH «> Compute index into IDB table 


50 O08 A? 9A 
50 1C B640 9A 


50 Q000'CF40 9E MOVAB W*PERFTABL ROU R : Address of IDB for this item 
O46 A 04 AO 00 MOVL IDBSA_ LNAHE ROD: fat) ; Addr of item name str to FAOL stack 
51 DD PUSHL R1 ; Push addr of FAOL parameter List 
gare ce oF PUSHAB W*ITEM_NAM_STR+1 ; Push addr of item name FAOL ctrl str 
63 SFE'CFE 9A MOVZBL W*ITEM_NAM_STR,(R3) 3; Load its length 
53 OD PUSHL R3 ; Push address oT Length lonaw 
04 A3. 01 8B0 OVW #1,4(R3) ; Set bit to force DISPLAY_P ii + $F AOL 
04 AS ODF PUSHAL 4(R3) ; Push ptr to DISPLAY_PUT fFequest flags 
OOOOIADA'EF 04 FB CALLS #4,DISPLAY_PUT 3 Put out item name in heading 


PEI III 9 QO AMF 8 8 8 SF TU ETN ETE ETN ETRE TU ETU ETE ETUCT UTR ETN TU ETUCTUCTUCTUCTUETOCTUSTRCTICTUCTICTUCTICVOCTICT? 
WWE QVINM DS S DOWS FVM MS POOL LLL LLL LLL LPL PPP PPL LLL EES 

DV PUPP IVWIPVIVIV IV IVIVIVIVIVDVIVIVIUIVSIVUSVSIVSVSIUSIVSUSVSUSVSUSVOSUSVOSUSVOS USSU TOSS VOSS OSV VOSS ISIS 
DUD PVPVPVPVIVPV SV SVSUSVSUSVSUSVSUSUSUSUSUSVSIT SISSIES ISIS USSU SUVS SVS TOSS 
PVPVPUPV SST B® BS BS BS ES BE EE AANA WII NII PNOPININPYPINININDY 2 2 OO OO OO 
WONAULS WO OOONAUES WN SO OO NAU EWN (OO OONAUES WN OVDONAOULS WMO” 


WOOO O0O000 000000 0.0 00900 09 09 00 0 09 Cd CD CD CD C9 CD C9 CD CD 09 C9 LD 09 00 CD 0D CD Cw CD 


RSB ; Return with status in RO 


IMPLICIT OUTPUTS: 


Entire screen full of homogeneous class data, names and 
heading information output to the terminal. 


ROUTINE VALUE: 

RO = SSS$_NORMAL, or screen package error status. 
SIDE EFFECTS: 

none 


dD 7 
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13 ; ~SBTTL FILL _HOMOG_SCREEN = Fill a Screen with Homog Class Output 

9 ; 

4 2 3 FUNCTIONAL DESCRIPTION: 

3 566 ; Issues calls to DISPLAY_PUT to display a full screen 

2 567 ; of output for this homogeneous class. 

3 : INPUTS: 

9 571 : 4(AP) = address of CDB (Class Descriptor Block) 

4 : 3 or the current (homogeneous) class. 

3 : : 8(AP) = number of element names (e.g., disk names) to be displayed. 

33 : : 12(AP) = Element ID Table index of 1st element to be displayed. 

934 5578 : 

33 : ; IMPLICIT INPUTS: 

33 : : MRBPTR = pointer to MRB (Monitor Request Block) 

$3 : : MFSPTR = pointer to MFS (Multi-File Summary Block) 

934 5585 : ouTPuUTS: 

93 586 ; 

93 587 ; None 

93 3 

93 ; 

93 3 

93 3 

93 3 

93 3 

93 : 

93 3 

93 ; 


OOF O -ENTRY FILL _HOMOG_SCREEN, “M<R4,R5,R6,R7> 
ot) MOVL 4CAP) ,R6 ; Load CDB pointer 
dO MOVL SORES CER CRG) RT 3; Load CDX pointer : 
dO MOVL (AP) R4 3 Load no. of elts to display 
1 BNEQ 10$ ; Br if have some 
3 ° 108 BRW 70$ ; Else simply go output screen 
dO MOVL 12¢AP) ,R5 3; Load element index of first one 


; Set up call to names display routine. 


Pe tn tr te ity ng ng it a ay gy yt yng yng Nyt gy yy Ne ne 


ee me ce ce me ce ee ee ec me ee ee ee ee ee ed cD ee ed ed ed dd od 2d od = od od = od SS — dd 3 
DWDDWDWDVNNEMPOORRRRR REPRE ERR R RPE R PPP PPP PEPPER PPP PPP PP PPP EEE 


WOWOWODOOOOOOOOOOOOOOOONO 
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20 D4 1948 ois CLRL R ; Init count of names to skip displaying 
DS 194D TSTL R 3; First sereenrs this interval? 
OA 12 194F ° 0 BNEQ 208 :; Br ifn 
OF 20 A7 OD 132] ? 1 CMPL tg i ie : Previous ‘ staples a single screen? 
06 «14 1988 6 : BGTR 208 ; Br ifn 
50 20 A7 00 1986 ? : 208 MOVL CDX$SL_PREV_DCT(R7),RO ; Skip dteptay of all ‘'previous’’ names 
54 50 01 1958 56 § CMPL RO,R4 ; ory odgttjonal ghenes this interval? 
gh 13 43 6 BEQL 4 kip display if not 
0 Ci 1966 5628 ADDL3 RO #EIRST_DATA_LINE,=(SPS 3 Stack starting row number 
51 oan i DO 1964 6 9 MOVL MRBPTR,R1 abet nk MRB pointer 
3 E1 138 0 re tt MF SUM,MRBSW_FLAGS(R ),30$ ; Br if not m.f. summary 
co 13 ? 1 $08 ADDL2 #2,(SPT : ist data Line lower for m.f. summary 
7E 54 50 C3 197 6 4 SUBL RO, Oe -(SP) : Stack name count 
ft 33 BW CY 397 634 ADDL RO,R5,-(SP) 3 Stack element index of first ... 
197B 5635 3 name to display 
56 DD 1978 5636 PUSHL R6 3 Stack CDB address 
197D 5637 
197D 5638; 
197D 5639 ; Call name display routine 
138 dest 
OQOOOIAG8"EF 04 FB 197D 2046 CALLS #4,DISP_HOM_NAMES ; Display the element names 
03 50 fs 198% ee BLBS RO,40$ ; Br if OK status 
09E 31 1987 5644 BRW FHS_ERR : Else go exit if error 
198A 5645 
198A 5646 ; 
198A 5647 ; Now display the actual data 
198A 5648 ; 
198A 5649 
198A 2629 ; 
198A 5651 ; First, compute the length of the FAO control string 
P+ 99 2026 3 
198A 565 
198A 5654 40S: 
51 40 A6 9A 198A 5655 MOVZBL CDBSB_FAOSEGLEN(R6),.R1 ; Get Length of the FAO segment 
1 54 C& 198€ 5656 MULL2 R4,R1~ ; Compute length of FAO ctrl string 
50 41 AG QA 1991 5657 wily CDBSB_ FAOPRELEN(R6),RO ; Get Length of the FAO prefix 
1 50 ci 1995 5658 ADDL3 RO,R1,CDBSL_FAOCTR(R6) ; ... and add it in 
1999 5659 
1999 5660 ; 
1999 5661 ; Alloc some space for DISPLAY_PUT flags 
1999 066 ; 
1999 566 
1999 5664 ALLOC 2,R0,R4 : Alloc 2 bytes for DISPLAY _PUT flags 
64 01 90 1946 5665 MOVE #1, (R4) ; Set bit to force DISPLAY PUT thru SFAOL 
01 A4 «094 «1989 5666 CLRB 14) $ ... but don't force to screen yet 
19AC 5667 
19AC 5668 ; 
1s 66) 3 Calculate and stack beginning of FAOSTK segment for this screen 
19aC 5671 * 
50 00 on00"er DO 19A ore MOVL MRBPTR,RO oy" t nae pointer 
OE 43 AO E1 1983 567 BBC #MRBSV_MF SUM, MRBSW_ FLAGSER F 508 ; Br if not m.f. summary 
50  O0000000'EF DO 198 674 MOVL MFSPTR RO MFS* pointer 


. € 
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50 34 AO 4 5 198F 75 MULLS #4,MFSSL_LWORDS(RO),RO ; Compute bytes in FAOSTK for one elt 
OH 19¢4 ere sos, RES | Go compute offset 
50 20 9 19¢ of8 ’ MOVL #<4*TAB_LWORDS>,RO ; Assume tabular display 
00 42 ag 1 19¢ 67 CMPB COBSB_ST(R6),MALL_STAT ; ALL statistic requested? 
0 13 13e0 ? ? BEQL 60$ :; Br if so 
50 Oc 00 Ice ? ¢ 60$ MOVL #<4*BAR_LWORDS>,RO ; Bar graph display 
50 55 C4 1903 684 ; MULL2 R5,R0 3; Compute offset to first data to displa 
7E 00000105"EF GE 1905 5685 MOVAB L*FAOSTKLROJ, (SP) S coe and stack {ts address et 
04 A6 DD 19DD 56 ; PUSHL CDBSA_FAOCTR(R6) ; Stack address of FAO ctrl str 
$° DF 1368 688 PUSHAL CDBSL_FAOCTR(R6) 3 ss. and its "oat 
4 oD IEE ret PUSHL R4 ; Stack DISPLAY_PUT request flags 
OQOOOIADA'EF 04 FB IDES 631 CALLS #4,DISPLAY_PUT ; Put screenful of homog class data 
39 50 €9 19EB 5638 BLBC RO,FHS_RET ; Return with status if failed 
19EE 5694 3 «ee (already logged) 
19EE 844 
19EE 5696 ; 
19EE 2937 3; Send ‘’REGSET’’ escape sequence to screen 
19EE 5698 ; to get back to the regular character set, 
19EE 5699 ; and force all accumulated output to screen. 
19EE 5700 ; 
19EE 5701 
19EE 2786 70$: 
19EE 570 ALLOC 2,R0,R4 ; Alloc 2 bytes for DISPLAY_PUT flags 
64 946 19FB 5704 CLRB. ss (R4) : Indicate no $FAOL filter needed 
01 A4 «01 90 wre 2783 MOVB #1,10R4) ; Force all accumulated output to screen 
1A01 109 ALLOC 2,R0,R1 :; Get space for esc seq string & descr 
61 0000°8F B60 1A 708 OVW #REGSET,(R1) 3; Move in “'reg set’’ escape sequence 
04 AO ODD 1A! 709 PUSHL 4(RO) ; Stack address of string 
60 OF 1A18 710 PUSHAL (RO) 3 ee. and its oR 
54 OD A ae USHL R4 ; Stack DISPLAY_PUT request flags 
OQOOOIADA'EF 03 FB 1AlA ab CALLS #3,DISPLAY_PUT ; Set reg set and display whole screen 
0350 €9 1A21 2013 BLBC RO,FHS_RET ; Return with status if failed 
i” : ay 3 eee (already logged) 
50 01 00 1A $ ns MOVL #SS$_NORMAL ,RO ; Successful status 
1A2? 5720 FHS_RET: 
04 i. 7 g 1 RET ; Return with status set 
1A : 7 g FHS_ERR: 
0001 30 IA 724 BSBw DISPERR : 
04 1A2B 5725 RET : rn with status 


| 
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1A2C 5727; 
” : 4 3; DISPERR Subroutine. 
1A2eC 57 : Entered when an error has occurred in a system service or 
1A2C 5731 ; other routine white ¥ kenpt ing Fe to display to the terminal. 
1AeC 57 § ; Upon entry, RO contains Ving status code. This 
1AgC 5735 ; routine makes a call to MON_ERR which records a MONITOR 
1A2C 5734 ; error code of HNR $_DISPERR and a subordinate error code of 
1AgC 5735 ; that in RO. Then, Upon exit, the MNRS_DISPERR status is 
iA : 4 § : placed in RO. 
a : 4 3 : Upon entry, 
1A : oy : RO = Error status code from a system service or other routine 
_ : reg : Upon exit, 
1A C ad ; RO = MNRS_DISPERR status code 
1A2C 746 ; Register R1 is destroyed by this subroutine. 
1a5e 8748 * 
1A2C 5745 DISPERR: 
50 DD 1A2C 5750 PUSHL ; Bad status on stack 
6—€ ODF IA 3 272) PUSHAL (SP) 3 Stack potetes to bad sta 
00000000°8F DD 1A 236 PUSHL #MNRS$_DISPERR ; Stack MONITOR failing na pe code 
OOOOIEB6"EF O02 FB 1A36 575 CALLS #2,MOR_ERR ; Log the error 
5E 4 CO 1A30 5754 ADDL2 ; Pop original status 
50 00000000'8F 00 1A40 5755 MOVL #MNRS_DISPERR,RO ; Get new status to caller 
0S 1A47 5756 RSB ; Return 


| 
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| 
rf | 
NAMES 
1M ft -SBTTL DISP_HOM_NAMES = Display Names for Homog Class | 
1A48 5760 ;+4 | 
1A4 761 ; 
i 4 ¢ ; FUNCTIONAL DESCRIPTION: | 
1048 5764: Issues calls to SCRPKG routines to display names 
1A4 765 ; of homogeneous elements for the current screen. 
1A4 £68 ; The names are entered into the SCRPKG buffer, but 
ee 1° : are not actually output to the screen. 
1A4 789 > INPUTS: 
1A468 5771: 4(AP) = address of CDB (Class Descriptor Block) 
_ ak : for the current (homogeneous) class. 
va oe : 8(AP) = Element IP Table index of Ist element to be displayed. 
i ore : 12(AP) = number of element names (e.g., disk names) to be displayed. 
oot ore : 16(AP) = screen row number on which to display first element. 
1A48 780 : IMPLICIT INPUTS: 
1Acg ; , 3 OUTPUTS 
i eae 
3 one 
1A48 2782 ; 
ee £36 ; IMPLICIT OUTPUTS: 
1A48 aH : ALL names for the current screen full of elements are sent 
1A48 5789 ; to the SCKPKG. 
ine 790 ; 
1A4 791 ; ROUTINE VALUE: 
1A48 re : 
1A48 5795 ; RO = SS$_NORMAL, or screen package error status. 
1A48 5794; 
1A4 795 ; SIDE EFFECTS: 
1A4 796 ; 
1A4 797 ; none 
1ace. 3799 
1A4 00 ° 
O7FC ve B) ENTRY DISP_HOM_NAMES, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10> 
56 9 AC DO 1A4A MOVL 4(AP) ,R6 ; Load CDB pointer 
57 2A6 00 1Aes 4 MOVL CDBSA_CDX(R6) ,R7 3; Load CDX pointer 
59 OC AC DO 1A5 5 MOVL 12(APY,RI ; Get number of elements to displa 
148 0 ALLOC 4 RO, RS : Get 10 Longwords for an FAO stac 
1A63 580 ALLOC 10,R0,R ; Allocate a descriptor & a word 


> Push SCRSPUT_SCREEN arguments on stack and call it to display one name 


No special screen attributes 
Column number 

Row number 

Text descriptor 

Put a name String to terminal 


FATAL III $4 
DWHEMOMOOMOOOOPNBAOOONO 


PUSHL + 


7 


8 DF 
00000000 * GF 4 FB 


>>>r>y 
MEW O OONOAUS UMNO 
vv 
cc 
om 
== 
-e 
a 
Sete te Se te 


AON 
AOAXAO 


(R2) 
CALLS #4,G*SCRSPUT_SCREEN 
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1A7 09 ; 
: \9 : Get Element ID Table address of first element to be displayed 
1A7 + ie 
9 A7 1A7 1g ove L Ouse -ELIDLEN(R7) ,R8 : Get Length of an element ID 
5A ; BA CS) «1A? 14 te Bhp ha Ri 5 Compute offset to Ist display elt 
‘ A DO 1A79 15 mOuL A’ EL{DTABLE(R7) ,R1 ; get addr of elt ID table 
50 07788 "EF 1) 1A7D 16 Move Ors tae R ® gst MRB ‘pointer 
El 1A84 1 BBC #MRBSV_MF SUM, MRBSW FLAGS(R ),10$ ; Br if not m.f. summ 
51 18 A 0 1A 9 18 _ MOVL  CDXSA_SELIDTABLE(R7),R1 ; Get addr of super elt ip table. 
SA 51s 1A p "  ADDL2-—s«R}1, R10 ; Compute addr of Ist display elt 
1A9 : 
1A9 { 3; Get row and column numbers for first element name 
hae 
54 10 AC 00 1490 § MOVL 16(AP),R 3; Get first row number 
55 OO00'CF 9A 1Az8 7 MOVZBL W*NAME COL, RS 3 eee and column number 
1A99 ; 
1A99 5830 ; Call class-specific routine to fill the FAO stack 
1A 1; for the current element. 
1A 2 § : NOTE -- this routine expects: 
1A99 : 5 : RO,R1 = scratc 
1A99 § s R3 = address of 10-Longword FAO stack 
1A99 3 R6 = address of CDB 
1A99 8; R7? = address of CDX 
1A99 9; R10 = address of current element ID 
1A99 40; 
1099 43 20$ 
28 87 «(16 1499 “8 Lat @CDX$SA_DISPNAM(R7) : Fill the FAO stack 
1A9C 45; 
1A : rt ; FAO stack is set up. Issue the SFAOL and SCRSPUT_SCREEN calls 
1A9 48 ° 
1A9 49 SFAOL_S CTRSTR=@CDX$A_DISPFAO(R7), OUTLEN=8(R2), - 
1A : OUTBUF=W*OUTDSC, PRMLST=(R3) ; Format an element name 
rH 39 9 1 : BLBC RO ey 3; Exit if error 
2 : A a a 82) : Move actual text len to descr 
04 a2. 1A07"CF DO 3 w* Aa) C82) 4(R2) : Move addr of text to descr 
1 5 
1 5 
1 5 
1 5 
1 6 
1 
| 
1 
1 
: 
| 
= 


gd od = VAX/VMS Perfor 
DISP_HOM_NAMES = Display Names for Homog 5- 
08 50 €9 1ACB 66 BLBC RO,DHN_RET 
1ACE ? 
SA 58 CO JACE 8 ADDL2 R8,R10 
54 06 1AD 9 INCL RG 
(3 59 —=C#F 100? oy SOBGTR R9,20$ 
50 01 DO 1AD6 a MOVL #SS$_NORMAL ,RO 
1AD9 7 
1AD9 5874 DHN_RET: 
04 1AD9 75 RET 
1ADA 5876 
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Exit if error 

Point to next element for display 
Point to next row number 

«+» and go do it 


Successful status 


Return with status set 


v0 


8 
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WOOOOOOOOOO0O000000000000000 0000000 O00 0009 00 09 090900 00.0900 09 00 00 C0 C9 COON 0D CD CD CD 
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Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Sse Ge Fee Ge Ge Ge Ge Ge 


o 
> 
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FUNCTIONAL DESCRIPTION: 


Puts DISPLAY output to SYSSOUTPUT (or any file) using 

the Screen Peckage. Depending on the pd of an input 
flag, DISPLAY_PUT will either send the supplied buffer 
directly on to ane screen package, or run it oun $F AOL 
before cane tr t. A second input by indicates whether or 
not to actually output the data sent to the screen package. 


INPUTS: 


4(AP) = address of 2 contiguous bytes, each containing a flag: 


Byte 0: If low bit set, use supplied buffer as input 
to SFAOL, and send the resultant buffer 
to the screen package. Otherwise, send 
the buffer directly on to the screen 
package. 


Byte 1: If low bit set, issue screen package calls to 
actually output the data. Otherwise, 
no such calls are made and the screen 
package merely buffers all received data. 
8(AP) = address of longword containing length of buffer to put. 
12(AP) - address of buffer to put. 


16(AP) = optional address of SFAOL parameter List. 


IMPLICIT INPUTS: 
OUTDSC = quadword string descriptor for SFAOL output buffer. 


SCRDSC - quadword string descriptor for buffer required by SCRPKG. 


OUTPUTS: 


none 


IMPLICIT OUTPUTS: 


Translated buffer sent to Screen Package. 


ROUTINE VALUE: 


RO = SS$_NORMAL, or screen package error status. 


SIDE EFFECTS: 


none 


Page 147 
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0004 JADA 3 5 .ENTRY DISPLAY_PUT,“M<R2> 
OF 04 BC O00 €E0 100% 9 3 BBS #0,a4(AP),10$ 3 Go do $FAOL galt if requested 
oc aC DD lacy 3 : PUSHL i (ap) : Otherwise, simply put buffer 
0000185 "EF Os FB 1AE7 5940 CALLS #2,PUT_TO_SCREEN gee 
oo 1A 34] an BRB 20$ : Join common code 
1AF 848 ; ALLOC 10,R1,R2 3; Allocate a descriptor . _ word 
oo GRRE BB Hee ee BRU) Ct, ee ats 
1806 346 SFAOL_S CTRSTR=(R2), OUTLEN= =8(R25,,” “ogrBUF BuTDSe, PRMLST=916(AP) 
38 50 €9 1B1B 594 LBC ~ RO,DP_ERR 
00001A07'EF 3 1BIE 5948 USHL gufpst+4 : Beh output buffer address 
7E 08 ag C 1824 5949 MOVZWL 8(R2),-(SP) 3 «ee and its lengt 
00001BSD'EF O02 FB 18 8 930 na CALLS #2,PUT_TO_SCREEN : Put buffer to screen 
2750 €9 1B2F 93¢ " - BLBC ~—s RO, DP_ERR : Exit if error 
E 04 68C DO 1832 595 MOVL a4 (APY, -(SP) ; Get parameter bytes on ines 
1A.01 AE 00 €1 1836 5954 BBC #0,1(SP), 30$ : Go exit if no output reques 
BOOR0ONN "Gr 9° 4 1878 932 sats #0-cSL1BSPUT_ BUFFER 3 purput SCAPKS buffer an oe terns 
e x 
000020aF ‘EF 188 2997 PUSHAQ SCRDSC : Push MONITOR buffer addr 
00000000'GF 01 FB 1848 5958 CALLS i -G*LIBSSET_BUFFER ; Set buffering mode again 
0450 €9 1B9¢ 3999 ao BLBC RO,DP_ERR ; Exit if error 
50 01 00 1858 5961 "  MOVL = #SS$_NORMAL,RO : No failing status hit 
04 1628 2306 ~~ RET ; Return with success 
FEDO 30 1859 5964 ~~ BSBW  DISPERR : display error 
04 185C 5965 RET : urn vith status 


MONITOR 
v04-000 


=“a< 
> 
—x< 
<= 
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-SBTTL PUT_TO_SCREEN = Translate escape seqs and issue PUT_SCREEN 


vi 
Cc 
o~ 


+ 
aa 


FUNCTIONAL DESCRIPTION: 
Translate a buffer with imbedded escape sequences to Screen 
Package (SCRPKG) calls. The escape sequences present on 
input are defined aboys in the messages declaration section. 
They are generally VT52-style sequences, with a few minor 
changes. These are converted to general-case SCRPKG calls 
to accommodate any terminal. Within the buffer, strings of 
text between escape sequences are sent to SCRPKG with a 
SCRSPUT_SCREEN call. 

INPUTS: 


4(AP) = Length of buffer to translate (longword). 
8(AP) = address of buffer to translate. 


IMPLICIT INPUTS: 
SYSOUT_TYPE = SYSSOUTPUT terminal type (byte). 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
RO = Worst status received from SCRPKG. 
SIDE EFFECTS: 
The entire buffer has been sent to the SCRPKG. 


Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge Ge Ge Ge Ge Ge Ge Se Sse Ge Sse FeSse Se Sse Se Ge SeGse Sse Sse Vets Se Sse 


000¢ .ENTRY PUT_TO_SCREEN, “M<R2,R3> 


ee | ee ee ee ee eS SS 

fosTesTecles[ecloslecertectestectestectesTecTesTectesToctostectoctosToclesTocTestecleslosloc[ostoclesloclesleclvs[eclos[esloslecles[orles[oclesleslesleslerloslos] 
SSD DDD SUPT | O E 
PUMTNMNOVCVOVOCVOVOVOVOVUVUOVUVUUOVOUVTVOVUVCOVCOVOUCOUVUCVCUOUUOUOCOVUUCOVUUCUUOUOUUUCUUCUOCOUOUUOUSOSO |™uMW 


1 
52 04 AC 7D 601 scones MOVa 4C(AP) ,R2 ; get len & addr of buffer to translate 
O000272F°EF 52 7D 601 MOVa R2,TXT_DESC ; save descriptor of remaining buffer 
os > 18 A 601 LOCC #ESC RZ, (R3) 3; scan for_escape character 
2 D ‘ 601 MOVQ ° 3 use R2-R3 instead of RO-R1 
0000272F ‘EF A ° 1 SUBW R2,TXT_LENGTH ; compute length of text 
1 1 8 1 BEQL 1 >; br if no text between esc sequences 
00000000 ' GF 000027 19"¢F FA A 601 CALLG PUTSCRARG,G*SCRSPUT_SCREEN 3 put text string into SCRPKG buffer 
8 E8 8 601 BLBS RO,10$ 3 continue if status OK 
OO0O0008D"EF 5 DO 8 602 MOVL RO,PTS_STAT : else, remember it for later 
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1B8F § 3 108: 
52 0 a 1BBF SUBW #2,R2 3; update tengsh of Fens ining buffer 
18 #18 ¢ ? 4 BGEQ 3; keep going if more chars in buffer 
oopc 831 183% ° 5 208 BRW PTS_RET ; all done if slid off end 
53 0 0 1B97 6 : ; ADDL #2 Re ; update pte to remaining buffer 
2737'CF OA FFA A 1B9A 6 8 LOCC =-1(R ), #ES_TAB_LEN,W*ESC_SEQ_TABLE ; get offset into tab for CASE 
06 if 1BA1 6 BNE | go-do CASE for known esc sequences 
00D ; 1BA3 6030 BSBW PUT _ESC_SEQ 3; unknown esc seq ... just put out as text 
0089 1 1BAR o8 1 308 BRW CHERRET 3 Join common code 
1BA9 $8 : y CASE RO,<CHEKBUF ,PTS_ESCY,PTS_ESCU,PTS_ESCR,PTS_ESCK, = 
1843 4 PTS _ESCJ,PTS_ESCH,PTS_ $C6,PTS ESCF PTS ESCB,PTS_ESCL>,w 
56 11 183 6036 BRB PTS_ESCRA ; if out of range, do a cursor home 
1BC5) 60 ; PTS_ESCB: ; set ‘bold’ attribute 
00 272B'CF 00 €E2 ete ones 108 BBSS #SCRSV_BOLD,W*ATTRIBMSK,10$ ; turn on appropriate bit in attrib mask 
009E 31 1ec8 6040 f BRW CHEKBUF : join common code 
1BCE one§ PTS_ESCL: 3; set ‘‘underline’’ attribute 
2615'CF 00 91 eck 604 CMPB #DEC_CRT,W*SYSOUT_TYPE ; is SYSSOUTPUT device VT100-compat ? 
0 12 1803 6044 BNEQU 10$ ; no == don't request under’ ining 
00 272B'CF 0 E2 ieee ohee 108 BBSS #SCRSV_UNDERLINE ,W*ATTRIBMSK,10$ ; turn on appropriate bit in attrib 
O08E 31 se 6047 i BRW CHEKBUF : join common code 
1BDE 6049 PTS_ESCR: ; set “reverse video’ attribute — : 
00 272B'CF 01 €E2 ieet e839 108 BBSS #SCRSV_REVERSE ,W*ATTRIBMSK, 10$ ; turn on appropriate bit in attrib m 
0085 31 1BE4 603¢ "  BRW CHEKBUF ; join common code 
1BE7 6054 PTS_ESCU: ; clear all VT100 attribute settings 
272B'CF D4 1BE7 6055 CL W*ATTRIBMSK 3; do eveces 
OO7E 31 icEe 2838 BRwW CHEKBUF 3; join common code 
1BEE 6058 PTS_ESCY: 3; position cursor 
52 02 A2 iIBEE 6059 SUBW #2,R2 3; update buffer Length 
03 18 1BF1 6060 BGEQ ; continue if more buffer left 
007D 31 ier? o8et 108: BRW PTS_RET : err if no coordinates -- just quit 
7E 01 A3 QA 1BF6 rine ; MOVZBL 1(R3),-(SP) 3 stack column number 
7 63 9A BFA 6064 MOVZBL (R3),-(SP) 3 stack row number 
5 6s CO 1BFD one? ADDL ag Rk ; update ptr to remaining buffer 
00000000'GF 0 FB 1600 6 96 CALLS #2,G*SCRSSET_CURSOR ; set the cursor position 
59 = 11 a 4 tae BRB CHEKRET 3: Join common code 
1£08 $06? PTS_ESCK: i erase to end of Line 
00000000 ' GF 90 FB 1C09 6070 CALLS #0,G*LIBSERASE_LINE 3; do exactly that 
0 11 11 sor B CHEKRET ; join common code 
1C12 6 5g PTS_ESCJ: 3 erase to end of page (screen) 
00000000 ' GF 09 FB 1C12 6074 CALLS #0,G*LIBSERASE_PAGE ; 
47. «11 C19 6075 BRB CHEKRET ; join common code | 
1C1B 6 as PTS_ESCH: ; cursor to home | 
01 oD 1C1B 6078 PUSHL #1 ; stack column number 
| 
| 


1 
00000000 ' GF op 
00002700 "EF etait 


0000270D"EF  O000026F6'EF 


2615'CF 60 
0000270D "EF 
00000000 * GF 4 


00002615"EF 01 
0D 


0000008D ‘EF 


50 0000008D'EF 


0000272F ‘EF 0¢ 
0000273535"EF FEA 
0000272F "EF 
00000000°GF 01 


> 
4>< 
< 


a a a tt a ss ss se ss ss ss i ss st o™ 
POAIOOOAAIAAAIOAOAOAIAAAAOAAAAAOHAIAAQAAAAAAOHANAAAOAGAAAOAOOOMO 1 
NO PVD DW WWD S WWMM OOOUMINNTNRNIAA LS NIOCOCOVWVWNOWOE "SD On 


DOOD SI SISSIES SSSA AAA AAA OD I BB EE EWI nonun——— —s w SS 
PIMPIN 2 9 PP PF POO OOO OOOOOOO OO O0O0O0O0OOWMOcococecIcDCDCO~ 
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PUSHL 
CALLS 
BRB 
PTS_ESCF: 
MOVAQ 
BRB 


PTS_ESCG: 
MOVAQ 


SELECT_SET: 
CMPB 


— 
So 
bed 


CHEKRET: 
BLBS 
MOVL 

CHEKBUF : 


PTS_RET: 


PUT_ESC_SEQ: 


é 
* G*SCRSSET_CURSOR 
CHEKRET 


“WM 


VT100_REGSET,VT100_CURSET 


0_CURSET 
“SCRSPUT_SCREEN 
EKRET 
#VT5X,SYSOUT_TYPE 
CHEKBUF 


PUT_ESC_SEQ 


R2 
PTS RET 
SCANBUF 


PTS_STAT,RO 


NGTH 
T_START 
$PUT_SCREEN 


Moree 98e bo: 


ET,VT100_CURSET 


CRT,W*SYSOUT_TYPE 
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3 stack row number 


osition cursor to home 
oin common code 


select ‘‘alternate’’ graphics set 
; make the alternate set current 


«es and go output esc seq to select it 


select ‘'regular’’ graphics set 
; make the regular set current 


is SYSSOUTPUT device VT100-compat ? 


no =-try another type 

yes -- push addr of esc seq 
e+. and write it 

join common return from CASE 


; is it VT5x series ? 
; no == no need to change char set 


; write out the esc seq just scanned 


; continue if status OK 
; else, remember it for later 


common return point for CASE 
whole buffer examined yet ? 
yes -- get out 

no =~ go look at more 


return status value 


; subroutine to put an imbedded esc 
3 eee Sequence directly to the screen 


load length of esc sequence 
load starting address 

push descriptor addrress 
«ee and put out ‘as is 


PT ap ee ee ee 


<= 
v 
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FUNCTIONAL DESCRIPTION: 


This routine is called from the REQUEST_INIT routine in 
REQUEST.PLI to select the ppercer ate Revision Level for 
each class being monitored. Once the level is selected, 
this routine stores the level number in REVLEVELS, a 
128-byte vector which contains level numbers for all 
classes being monitored. Then it moves the se 
Descriptor (CHD) for each class into its Class Descriptor 
Block (CDB/CDX). For playback, a class which has a revision 
level unknown to this version of MONITOR is flagged in 
the UNK_CLASSES vector. 

| 


INPUTS: 


4(AP) = address of a 128-bit vector describing classes 
to monitor. If class n is to be monitored, 
bit n is a 1; otherwise it is 0. 


address of a 128-bit vector which will describe 
classes with revision levels unknown to this 

version of MONITOR (UNK_CLASSES). It is used only 

for playback requests. For live requests and playback 
of Version 3 files (all classes at Rev 0), 8(AP) 
contains 0. Upon entry, all bits are 

indeterminate. For each class n to be monitored, 

bit n is set to 0 if its revision level is known 

and 1 if its revision level is unknown. 


12(AP) = address of HDRST_REVLEVELS, a 128-byte vector 
indicating the revision level of each recorded 
(i.e., input) class (for playback requests onty? 
For Live requests and playback of Version 3 files 
(all classes at Rev 0), 12(AP) contains 0. 


16(AP) - address of REVLEVELS, a 128-byte vector, into which 
will be stored a level number for each class being 
monitored. Upon input, all bytes contain 0. 
IMPLICIT INPUTS: 
MAX_CLASS_NO = maximum class number defined. 
MRBPTR - pointer to MRB (Monitor Request Block) 
CDBHEAD - table of contiguous CDBs. 
OUTPUTS: 


For each class to be monitored, one of two things happens: 


8 (AP) 


1) if its revision level is unknown, the appropriate 
t in UNK_CLASSES is set. (Can happen only 
on playback); or, 


ee a 8 a ss a ss a a 4s a ts a as 2 a ss a ti ae 
POOOIOAIOAAAOAOONAQAAANIANAAANANNAANAAAAAAAAAAAAQAAAAANANAAAAAAAQAQAANAQAOSO 1 
WODODOOODODOOOOOOOOOOOOOOOOOOOOODOODOOOOOOOOOOODOOOOOOOOOOOOOOOO DS 
9.090009 09 C9. 69 G9 Gd Cd Cd GD CD Cd Cd Cd Cd Cd Cd 09 Od 00 GD 09 09 OD OD Gd Od Cd Cd Gd Cd Cd Cd Cd CO CO CO COCO CD CO COCO CO CDODODCOOCOCRONODOSODOD mun 
DPARAEDP DADA DED DDD DDD DDD DD DDO DODD PAA AAA AA AAA AAA A AAA AAAAAO 
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< 
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2) the CHD (CHange Descriptor) is moved to the CDB/CDX. 


Also, for each class to be monitored, the appropriate byte 
in REVLEVELS is set to the selected revision level. 


IMPLICIT OUTPUTS: 
None 

ROUTINE VALUE: 
NORMAL 

SIDE EFFECTS: 
None 


O3FC ENTRY SELECT_REV_LEVS, “M<R2,R3,R4,R5,R6,R7,R8,R9> 
57 QO0000000'EF 0d0 MOVL MRBPTR,R7 ; Get MRB pointer for later us 
08 AC be 8 (AP) Check if UNK CLASSES is grovided 


If not, don't reference it 
Assume all classes are NOT unknown 


B 10$ 
os ec 10 OO FEAF O00 2 MOVCS #0,.,#0,#16,a8(AP) 


Use FFS instruction to select classes to be monitored. 


PPP PY PPP POWOOWOOODOODOOOOO0O0000000000 


ANWWN.A.A. A AHIIIPINININIPINININININD) 9 9 9 MOO OOOOOOOOOOOOWOOOOOOWCICICDCUCDCNCD ~ <-n 
ONAN AN 9 OD NOAOU EWN @ OS OONAULS WIN $9 OD NAME WIN $$ OS ODNAUE WN OOONOULWN WO 


POP OPOROPOPOPOPOROPOROPOPOPUPOPOPOPUNOPOPIPOPIPOPINIPOPIPOPINOPIPOPUPUPPNNY 2 = eM 


DARA AAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA AAA AAA A AA AA AAA AAO AAA AAAO 


A 10$: 
55 D4 - 208 CLRL R5 : Init starting bit position 
53 20 vO 1¢B "  MOVL «= #32,R3 : Init bit field size 
8 3; NOTE -- must handle in 32-bit chunks 
52 55 00 : 30s MOVL R5,R2 3; Init start position of next chunk 
54 046 8C 53 52. EA 1CB oe R2,R3,a4 (AP) ,R4 : Search class bits for next class no. 
B ; R4 contains class no. if found 
OE 13 8 BEQL ; Branch if none found this chunk 
ve B BSBB select REV : Select Rev Level rer this class 
> to C ADOL ; Compute next start 
52 54 9 C1 C ADDL #1,R4,R2 3 eee position and fie d size 
53 . C SUBL R2.R3_ 3 ee. for this chunk 
EA 11 : 408 BRB 30§ : Go search rest of chunk 
FFOC 55 20 0000°8F 3D 3 ; ACBW #MAX_CLASS_NO,#32,R5,20$ ; Loop to process next chunk 
50 O0000000'EF 00 D MOVL NORMAL , RO 3; Set normal status 
04 4 RET 3; Return 
D 
D SELECT_REV: : Select Rev Level for this class 
D 3; NOTE -- R4 contains class number 
4 ; Regs R2, R3, R4&, RS must not be changed 


——— + wvvnwwnnaao 


ad 


; Upon input, 


R4 = the current class number, 

= addr of COB for this class. 
R8 = addr of first CHD, 
R9 = the selected Rev Level, 


MOVB R9,@16(AP)CR4 : Set revision level 

MULE? #CHDSK SIZE,R s sgmpute offset to desired CHD 
MOVAB (R8)CRI gets $ addr of desired CHD 
MOVL  CHDSL_ICOUNT(R9) ,CDBSL_ riotr R6) ; Move in item count 


10 BC44 59 90 
59 


D 
59 6849 3 
14A6 69 «=D 
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56 4 0000053 8F 5 1CD 3 MULL3 #CDBSK oR4,R6 ; Compute offset to desired CDB 
56 o0snoos "EF 46 E ice é i9 MOVAB COBHEABERGD (Re : Index to CDB address 
0B 43 A7 03 EO ieee 6 tg BBS #MRBSV_PLAYBACK ,MRBSW_ FLAGS(R7), 10$ ; If tre o do it 
1CF1 624 ; Else, stay here and tree 
58 GF ag bDO 1CF1 44 MOVL COBSA_CH CHDHDR(R6) ,RB ; Get ptr to CHD x. t, | 
59 8 9A Se 45 MOVZBL ; Get current rev level 
4F 8610 = «1CF 46 BSBB = MOVE tn : and move CHD for it to CDB/CDX 
-.. SrA ° : SR_RSB : Ail dene with this class | 
1eC8 6 a3 10$: ; Playback 
58 4F A6 DO ICF 8 2 OVL CDBSA_CHDHDR(R6) ,RB ; Get ptr to CHD header 
50 9A 188 ° 26 0s: MOVZBL (R8)+,RO ; Get curr level from CHDHDR 
59 OC AC 09 1003 6254 = MOVL ICAP), »R9 : Get addr of recorded rev levels 
1 1007 6255 BEQL 60$ ; Br if none (recorded lev is 0) 
59 6944 9A 1009 6 2$ MOVZBL sey paeese Rg ; Get recorded rev level 
Di 1000 625 CMPL R9,R ; Recorded rev level greater than curr? 
4 18 1010 6258 BLEQU rey a ; Br if no (and use recorded level) 
00 08 BC 54 =&£E2 1D12 6259 BBSS R4,a8(AP) ,30$ 3 Yes -- set bit for this class ... 
101 6260 30$: 3; eee im UNK_CLASSES 
28 04 BC 00000000" 8F E1 1017 6261 BBC #SYSTEM wil  poiestha SR R_RSB ; pete checks if no SYSTEM 
00000000 ' 8F $3 ot 1 9 e 6¢ sor Re #PROCS CLS $ Is’ ie ll. he PROCESSES class? 
; Br es 
00000006 ' 8F 36 o 4 ? rt: sror a #STATES_CLSNO : a this the STATES class? 
; Br es 
00000000 ' 8F 54 D1 1036 6 06 CMPL R4,#MODES_CLSNO 3 is this the MODES class? 
OD 12 19 : ° of 408 BNEQ SR_RSB ; Br if no -= all done with this class 
00 08 BC 00000000'8F £2 1036 ° +4 ia BBSS #SYSTEM_CLSNO,@8(AP) ,50$ ; neg ay A see bit for SYSTEM class 
: - cnn OR 
02. «(11 1 6 4 shee BRB SR_RSB ; ALL done with this class 
01 10 1 e 73 ; BSBB MOVE _CHD ; Move CHD for this class to CDB 
1D 6275 SR_RSB: 
05 19 ° 7 7 RSB 3; Return to caller 
1D 6 
1D 6 MOVE_CHD: ; Move CHD for selected rev level ... 
1D 6 3 «e. to the COB 
1b49 
1b49 
Bes 
1De9 & 
1D 6 
1D 6 
1D 6 
1D 5 
1D 
1D 
1D 6 
1D 6 
1D 6 


OAR EERE REE EP REE EPP PP PEE 
M—M ODOODOOO OO OOO OOOO OMDMDMDAO & & 


OO OOO O000000 0000000000 C9 CO INI 


MEN OOO NOAULS WH OVOONIO 


This routine alters RO and R9. 
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YOu-000 SELECT_REV_LEVS = Select Revision Levels "r8 Pa} 984 83 36 MONTOR.SRC JMONITOR.MAR; 1 a (92) 
if 4 08 43 4 1999 6 98 MOVL CHDSA_ITMSTR(R9) ,CDOBSA_ Magli. (. 3 eee and item — ptr 
BO 1D 4 629 MOVW CHDSW_BLKLEN(R9) , CDBS$W See RLEN( R6) ; ... and block Length 
a9 BO 1063 6298 MOVW  CHDSW cDISBCIL (RDS DBSO_DIS ti R6) :.. and display ctl string 
09 ns — 05 €1 1068 6299 BBC ecoast “yes CDBSL “FLAGS (RE) 10$ ; Br if aesersoenene 
50 32 A6 00 106d 6300 MOVL COBSA oR ogensous eleee -- get 
09 AO OA AD 90 + 44 $30) 108 MOVE CHDSB_ “ELIDLENCRS) , CDx$B_ bvioce (RO) ; Move in elem iD length 
05 1D76 $308 "  RSB ; Return 
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~SBTTL ESTAB_CTRLCZ = Establish CTRL=-C,Z Handlers 


L 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine is called to s 
CTRL=Z handler for the SYS$ 
channel is assigned to SYS$ 
is checked for TERMINAL. If 
handlers are not established. 


t up a CTRL-C handler and a 
OMMAND terminal device. A 
OMMAND and its device class 
not terminal class, the 


e 
C 
C 


Then $Q10W's are issued to the terminal driver to establish 
both handlers. If any system service call fails, 
the oth status is returned; otherwise, NORMAL status 
is returned. 
INPUTS: 
None 
IMPLICIT INPUTS: 


CTRLC = address of CTRL-C handling routine. 
CTRLZ - address of CTRL-Z handling routine. 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
CTRL-C handler established for ‘'CTRLC'' routine. 
CIRLCE_CHAN contains channel numbers) ne 
ROUTINE VALUE: 
NORMAL, or failing system service status. 
SIDE EFFECTS: 
none 


W.A.ALAANAI AANA AAAANIN AAA AAAI 


Bete Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Ge Se Se Se Sse Se Ge Se 


DOD NAME AWN = SO OODNA UE WIN $$ O ONAN EWN OOO NAME WN OWOONAUW 


001C 


“toss 


~ENTRY ESTAB_CTRLCZ,  “M<R2,R3,R4> 


ALLOC 2,R1,R2 ; Allocate word on stack for chan number 
SASSIGN_S DEVNAR=U*SYSCMD_DESC. CHAN=(R2) ; Assign channel to SYSSCOMMAND 
BLBS RO,10$ ; Continue if status OK 

BRW RR ; Branch if error 


ee eh 


PPA TIA IA ES BP BP BS BB BB AAI I IAI ITO PNIPUNIPINUIIID 2 I BQO 


— 
oO 
bod 


ALLOC ODIBSK_LENGTH,R3,R4 ; Allocate DIB buffer on stack 
SGETCHN_S CHAR=(R2), PRIBUF=(R3)'; Get info on SYSSCOMMANC device 
BLBC RO,EC_ERR : Branch if error 


PDDQRPRQAPAAAPA AAPA AAPA AAD ADAP APD PAPA PPA AAA AAA A AAA AAA AAA AAA AAA AAA 


A.A. A.A. A.A. AN. A.A AA NAAN. AAAI AAAI AAI AIA AIAN 


ee ee ee ee a a ee ae ee a a a a a 
SOVVCVCVCOCOCCCOOCOCUOOOCOCCOCUOUCOCOCOCVUOOCCOCCVCVCOCOVUOCOVCCCOCCOVCCCCOVCCUCOUUCUCOUCUUU"TUCTC"TC"O 


aon 
—OOONAOUS IN — 


6150 €9 


} 
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ESTAB_CTRLCZ = Establish CTR tk nekate “SEP-1984 02:01:24 (CMONTOR.SRCJMONITOR.MAR;1 (93) | 
1D¢ 
04 AG «42 gf 91 1pEe : CMPB #0C$_TERM,DIBSB_ meyer ey - 3 Is SYSSCOMMAND device a terminal? | 
3 612 474 : BNEQU EC_NOR -- go return with normal status | 
QOOOOOAI'EF 62 3C€ H+ 43 96 MOVZWL = (R2),L*CTRLCZ_CHAN : Yes -- save channel no. for $CANCEL 
é 
10D 98 $Q10W_S pans ue CTRL=C handler 
1DD 4 FUNC PeO8. SETMODE ! 10SM_ irae eas > - | 
He 
2F 50 =SCé#éE iors 6 i BLBC RO,EC_ERR ; Branch if error 
ib? 3 74 $Q10W_S CHAN=( Now set up CTRL-Z handler 
IDE? 6 f3 FUNCs#cTOE. se SETMODE ! 10SM_ OUTBAND>, = 
Hs e 7 P2=#CTRLZ “MASK 
0750 €9 1E1C 6 8 BLBC RO,EC_ERR ; Branch if error 
1E1F 6380 
1E1F 6381 EC_NOR: 
50  Q0O000000°EF 00 34 o356 
04 i888 6384 RET ; Return with status 


| 

| 

MOVL NORMAL ,RO 3; Normal status 

EC_ERR: 
| 

| 

| 

| 
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- ESTAB_CTRLW = Establish CTRL-W Handler “SEP=1984 02:01:24 (CMONTOR.SRCIJMONITOR.MAR;1 (94) 
1€ 4 $ ~SBTTL ESTAB_CTRLW = Establish CTRL-wW Handler 
if 7 ;++ 
1Ee? 6 § : | 
if 4 y ; FUNCTIONAL DESCRIPTION: | 
1E27 $3 : This routine is galied to set up a CTRL-W handler for 
1E27 93; Ab peed ye the display terminal screen. A channel is 
1E27 ° 94; assigned to the | device and its device class is 
1E27 95; checked for TERMINAL. If not terminal class, the handler 
5 4 6 8 3 is not established. 
1£27 g 38 : Then a $Q10W is issued to the terminal driver to establish 
1E27 6399 ; the CTRL-W handler. If any system service call fails, 
1E27 6400 ; the pt ba status is returned; otherwise, NORMAL status 
1E27 6401 ; is returned. 
1E27 att 3 
1E27 6403 ; INPUTS: 
1 re 
127 6406 : 
\e 4 rent 3 IMPLICIT INPUTS: 
IE , 6409 : MRBPTR = pointer to MRB (Monitor Request Block) 
IE , 6411 : CTRLW = address of CTRL-W handling routine. 
1£27 gig : OUTPUTS: 
1657 Gals | " 
: one 
1E27 o718 : 
i i re} 3: IMPLICIT OUTPUTS: 
1E27 reat : CTRL-W handler established for ‘'CTRLW’’ routine. 
ie 4 e¢ Y : CTRLW_CHAN contains channel number. 
1E27 64 : : ROUTINE VALUE: 
1E27 6423 ; 
3 o : : NORMAL, or failing system service status. 
1E27 64 $ > SIDE EFFECTS: 
1E27 64 : 
1E27 64 3 : none 
1659 c80 : 
1E27 6431 — 
001C if 4 et § -ENTRY ESTAB_CTRLW, “M<R2,R3,R4> 
1E29 6434 ALLOC 2,R1,R2 ; Allocate word on stack for chan number 
53 O0000000°EF DO 1€36 5 MO MRBPTR,R3 - Get pointer to MRB 
le p 6 SASSIGN_S DEVNAR=QMRBSA_DISPLAY(R3), - ; Assign channel to display device 
6750 &9 1EKB 6438 BLBC — RO, EW_ERR : Branch if error 
1€4 440 ALLOC DIBSK_LENGTH,R3,R4 ; Allocate DIB buffer on stack 
ie¢3 441 SGETCHN_S CHAR=(R2), PRIBUF=(R3)°; Get info on display device 
30 50 €9 IE 42 BLBC RO,EW_ERR ; Branch if error 


33 


= VAX/VMS Per eteraene? Monitor uritit® 1936019 4 01:38 HE AX/VMS Macro Vv04-00 Page 159 
ESTAB_CTRLW = Establish CTRL-W Handler -SEP-1984 02:0 MONTOR. SR CIMONITOR.MAR: 1 (94) 
1€7 443 
04 AG 442 BF 91 1658 444 CMPB #0C$_TERM,DIBSB =-DEVCLASS(R4) 3; Is display device a terminal? 
ao E70 we? BNEQU EW_NOR ; No == go return with normal status 
QOOOOOAS'EF 62 3C¢ 444 ets MOVZWL (R2),L“°CTRLW_CHAN 3: Yes -- save channel no. for SCANCEL 
ifBe 644 $Q10W_S — =(R2) up CTRL-W handler 
1E86 6450 Ce#< 108 SETMODE! 10$M_ buTBANDS, ° 
ie $2) ping CTR 
1E86 64 § P2=ACTREG. "ASK 
1EAB 64 
07 50 €9 1EAB o 4 BLBC RO,EW_ERR ; Branch if error 
1EAE 6455 
1EAE ob 28 EW_NOR 
50 O0000000'EF 00 iene 645 MOVL NORMAL ,RO ; Normal status 
1€B oe38 EW_ERR 
04 1EB5 645 RET 3; Return with status 


ee 
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v04-000 MON_ERR = Log MONITOR Error . ets $3539 :5¢ MONTOR.SRCJMONITOR.MAR; 1 . (9%) vC 
18 % ~SBTTL MON_ERR = Log MONITOR Error 
ie ae 
JEB 469 ; FUNCTIONAL DESCRIPTION: 
1EB gig? : This routine is called to log an error whenever a MONITOR 
1EB 468 ; synchronous error is discovered. Asynchronous (signaled) 
1EB rh 3 errors are Logged via the SIGNALED_ERR routine. 
1EB6 6470 ; Logging consists of filling in the PUTMSGVEC array. 
1EB6 96471 ; This array is the sosnege argument vector for SPUTMSG which 
1EB 9058 3 will be called after all routines leading up to this 
1EB 4735 ; one have returned. 
1EB6 6474 ; 
1E80 9782 3 INPUTS: 
1686 677 : 4(AP) = MONITOR message code (required parameter) 
1EB6 8055 : 8(AP) = address of a secondary message code (0 if none). 
1580 e780 ; (optional parameter) 
1EB6 = 64 § : 12(AP) = 1st FAO argument for MONITOR message (optional 
1EB6 64835 ; parameter). Up to 16 additional FAQ arguments 
1EB6 6484 ; aay be included in this parameter List, immediately 
1686 ate 3 following this parameter. 
TEBG 6487 ; IMPLICIT INPUTS: 
1EB6 6489 ; PUTMSGVEC = 26-Longword err ey to contain the message argument 
1EB6 6490 ; vector for $PUTMSG. 
1EB6 6491 ; 
1EB6 6492 ; OUTPUTS: 
1EB6 6493 ; 
1EBe 6495 te 
TEB6 6496 > IMPLICIT OUTPUTS: 
168) e638 : PUTMSGVEC contains message argument vector for later LIBSSIGNAL call. 
1EB6 6500 ; ROUTINE VALUE: 
1EBS 6501 ; 
HBS GBR: one 
1EB6 6504 ; SIDE EFFECTS: 
166 $30 ; none 
1EB é3 $ ; 
18S 88 
000C iEBS 3 19 -ENTRY MON_ERR, “M<R2,R3> 
51 00002745'EF 43 1€8 3 1§ MOVAL PUTMSGVEC+4,R1 ; Get pointer to where MONITOR code goes. 
81 04 AC 1EBF 1 MOVL 4(AP),(R1)+ ; Move it in and point to next item in List 
38 C C 1€C3 é 14 MOVZ2WL (AP) ,R2 ; Get number of input args 
1 01 1ECé 15 CMPL so #1 RO : Just one arg? 
9 19 1EC 6 1 BLSS ~=—s:«108 ; No == continue 
00002741'EF 1 pO ECB 651 MOVL #1, PUTMSGVEC ; Yes -- tack on argument vector size 


| 
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=000 > ee Ie ee ee ¢ age (83 


/V 
V MON_ERR = Log MONITOR Error P 01 MONTOR.SRCJMONITOR.MAR; 1 (95) VC 
38 O11 JEDe 1 108 BRB ME_RET 3 eee and go return 
52 2 1ED4 SUBL2 #2,R2 3; Compute # of input FAO args 
g ¢ 1€D7 BGTR 56 ; Fontinue 11 found sone” 
1 D& 1ED9 CLRL (R1)+ 3: Indicate none in PUTMSGVEC 
2 o 1EDB CLRL Rp 3 Remember for Lat 
16 1 EDD 4 8 50$ 3 
1EDF é 5 20$ 
52 1 D1 =1EDF § CMPL #PUTMSGSIZE=4,R2 ; # FAO args greater than max? 
0 bs 1EE2 65 BGEQ o$ 3: No, OK as is 
32.6% OCOD iEES 65 : 308 MOVL #PUTMSGSIZE-4,R2 : Yes, replace with max 
81 2g DO 1EE7 e3 MOVL — ; Move # FAO args into List 
5 D4 1E6A o2 1 408 CLRL R ; Clear an index register 
81 O¢ AC43 DO EEC 65 5 MOVL eh : Move an FAO are into list 
75 52 Fe 1EF1 6534 AOBLSS R2,R3,40$ 3; Loop to move all FAO args 
IE BR ss 
00002741"EF 52 O02 C1 EFS 6537 ADDL3 #2,R2,PUTMSGVEC ; Compute # message args and store 
08 AC DS 1EFD $238 TSTL 8 (AP) 3 secondary message code? 
13 1700 6539 BEQL ME_RET : No == all done 
61 08 BC DO 1F02 6540 MOVL @BTAP),(R1) :; Yes -- move in after FAO args 
00002741'EF D6 1F06 6541 INCL PUTMSGVEC ; -« and count it 
1FOC 6346 ME_RET: 
04 1F0C 654 RET ; Return to caller 


ater | 
; eee and go check secondary code 
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-SBTTL SIGNALED_ERR = Log Signaled Error 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine is called to log an error whenever a MONITOR 
asynchronous (signaled) error is discovered. Synchronous 
errors (detected by MONITOR) are logged via the MON_ERR 
routine. Logging consists of filling in the PUTMSGVEC array. 
This array is the message ——— vector for SPUTMSG whic 
will be called after all routines leading up to this 

one have returned. 


INPUTS: 
4(AP) 
8(AP) = secondary message code (required parameter) 


MONITOR message code (required parameter) 


12(AP) = number of additional (FAO) arguments for secondary 
message. 


16(AP) = address of first additional argument. Others 
follow contiguously. 


IMPLICIT INPUTS: 


PUTMSGVEC = 26-Longword a to contain the message argument 
vector for SPUTMSG. 


Bm hm hm hmm hm hm hm) wm) wd wm) mh wm hm) mm) mm) wm) wm) wm) wm) wm) wm) | 


OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
PUTMSGVEC contains message argument vector for later LIBSSIGNAL call. 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


ee ee ee ee a a ee a a ee ee ee a ee a a ee a et 
a Fi Dis i Di Bi Bi Di Da Di Bi Rs Ba Re Be Be Di De Ds Bi ns De Bs DB es i Da Be es ss es Bs Bs Bs es i es De es De Bs De Bs es Ds es Ds 
Fe aes ah ah sb ab Ah Ab ab Ab Ab Ab db Ab Ab Ab db db db bbb b Ab dha b sb ah sbeal al eal eal al ahah eal alah alesse eal eal eae eee 
WOOO OO 00009 69 09 69 09 69 09 09 09 SI NINN NINN SSDP AAPA AA AA MITT £ ES 

=O OO NAME AN 9 OD NA UE WIN SO OOO NAU EWN OC OO NAMEN O OD NOAOUE WH OVOONOu 


ee SSS SSSSSSSSsSsssssssssssssssssssssssssssss 


NOOPO"OCVVCVCVCCVVCVVCVCOOVO°O9°0900 "000" 
DPDDYRAPAPAAAAAA AAA AAA AA AAA AAA AAA AAA AAAAAAAAA AA AAA AAAAA AAA AAOA AO 


000Cc ENTRY SIGNALED_ERR,  “M<R2,R3> 
51 00002745°EF ODE MOVAL PUTMSGVEC+4,R1 ; Get pointer to where MONITOR code goes 
81 04 AC 00 9 MOVL 4(AP),(R1)+ ; Move it in and porat to next item in List 
81 D4 9 CLRL (R1)+ ; Zero MONITOR FAO args 
81 OBA es 9 MOVL B(AP) ,(R1)+ : Move in secondary code 
00002741'°EF Q D 8 MOVL #3. PUTASGVEC 3 Size of PUTMSGVEC so far 
D4 6 CLRL R ; Start out with no PC/PSL args for 2ndary 


i 
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-000 SIGNALED_ERR = Log §fonaled Error ’ g-§ EB =1382 83:33 ‘Se MONTOR. SREIMON NITOR.MAR;1 ° (96) 
00 08 AC 0c f if % CMPZV) = #STSSV_FAC_NO,#STS$S_FAC =NO. peng MSYS_FAC_NO ; System fac code? 
FF BNEQ { $ ; -- go add-in additional a args 
52 C iF } 2 108: ADDL2 #2,R2 3 Yes =- count the PC/PSL args (h'ware xcptn 
52 OCA 1734 " — ADDL2-—s« 12 (AP) ,R2 ; Add in caller's additional args for 2ndar 
‘S $9 Teas 8888 BEQL 40$ : Go exit {f none : 
53 52° a 4 if A $8 : MOVL 16 (AP ; Set up pointer to first add’ l arg 
08 18 1Fa} 6610 BGEQ ; No, OK 
52 16 00 \tt? eae 208 MOVL #PUTMSGSIZE-4,R2 ; Yes, replace with max 
00002741'EF 52 co ieee 6618 ai ADDL2 R2,PUTMSGVEC ; Add the add'l args into PUTMSGVEC size 
81 83 DO 1F4D 6615  MOVL  (R3)+,(R1)+4 ; Move from signal array to PUTMSGVEC 
FA 52 =F5 Fay 6616 SOBGTR R2,30$ ; Loop once for each add'l arg 
1F53 6617 40S: 
04 1F53 6618 RET 3 ee. and return 


c 
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CMPL PPUINSGRTZE=4, R2 ; # FAO args greater than max? 
208 : as is 


MONITOR 
v04-000 
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erforma 138% 91:39:84 AX/VMS Macro V04-00 
ERR = Signal MONITOR Error -SEP=1984 02:01:24 CMONTOR.SRCJMONITOR.MAR;1 
66 -SBTTL SIGNAL_MON_ERR = Signal MONITOR Error 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine issues a CALLG to LIBSSIGNAL peas ing a 
signal argument List created by the MON ERR or SIGNALED_ERR 
routine. This routine is called from MORMAIN, a PL/I 
routine; it is necessary because PL/I does not generate 
G-form routine calis. 

INPUTS: 
none 

IMPLICIT INPUTS: 


PUTMSGVEC - a hg met array, containing the signal argument 
List to be passed to LIBSSIGNAL. 


OUTPUTS: 
none 
IMPLICIT OUTPUTS: 


Condition is signaled. The VMS default condition handler will 
display the error messages asssociated with the condition. 


ROUTINE VALUE: 
none 
SIDE EFFECTS: 


none 


ENTRY SIGNAL_MON_ERR, “M<> 


CALLG L“PUTMSGVEC,G*LIBSSIGNAL ; Signal the MONITOR error 
RET 3 ee. and return 
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~SBTTL LINK_MON_ERR = Link MONITOR Error 


Macro V04-00 Page 16 
SRCJMONITOR.MAR; 1 (9 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine is called to Link a MONITOR error message 
into PUTMSGVEC ahead of the messene already there. 
It uses two input arguments: the MONITOR error message 
code and the address of its (only) argument. 

INPUTS: 
4(AP) = MONITOR message code 


8(AP) = address of the only FAO argument for the MONITOR 
message (must be present). 


IMPLICIT INPUTS: 


PUTMSGVEC = 26-Longword af 4 to contain the message argument 
vector for SPUTMSG. 


MO 
Sy 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MB 
MH 
MAB 


eh eee cd ee ce cd ee ee cd ce ed ee en cn ae ee ed et ce cd een cD ee ee ed ee en ee ed en ed ce ee ee ee en ee ee ee ee ee ee cc ee ee ee ee ce ee ee ee ee ee ee 
SF ee ee ee eo 
BD OO0]O9 0900 SID DDD DDD DDD AAA AAA AAA AAA AAA AAAAAA AA AAA A AAA A AAA AO 


OUTPUTS: 
none 
6691 
089 IMPLICIT OUTPUTS: 
6694 PUTMSGVEC updated to include the input MONITOR message as its 
2 6695 pr nery error, followed by the original contents of PUTMSGVEC 
6698 as a Linked error. 
6698 ; ROUTINE VALUE: 
6699 
SE 
14 SIDE EFFECTS: 
6704 None 
6705 
3 
007C ore -ENTRY LINK_MON_ERR, “M<R2,R3,R4,R5,R6> 
4 6710 ALLO 4*<PUTMSGSIZE-1>,RO,R6 ; Get temp space on stack 
50 00002741'EF Oe C5 9 6711 MULL #4, PUTMSGVEC, ; Compute size of source for move 
poudE 43"EE 20 2c ; 6712 MOVCS RO,PUTMSGVEC+4,40, - ; Move current contents to temp area 
D 6713 #4%<PUTMSGSIZE-1>, (R6) 
741°EF 03 D 6714 ADDL2 #3,PUTMSGVEC ; Increase size of vector 
00002745'EF 04 AC 00 4 6719 MOVL 4(AP),PUTMSGVEC+4 : Move error code into vector 
Bon;e Tay EF 01 00 ¢ £18 MOVL #1,PU + ; Move FAO arg count into vector 
0000274D'EF 08 AC 0 671 MOVL (AP) , PUTMSGVEC+12 * Move FAO arg addr into vector 
66 0064 oF AB 6718 MOVCS #4<PUTMSGSIZE-1>,(R6),#0 = ; Move orig contents back in 
00002751°EF 058 8F a 14h #4*e<PUTMSGSIZE-4>, PUTMSGVEC+16 


j 


$$ cc 


monitor - VAX/VMS Performance Monitor uritie? a at et 9 03:39:86 yanLes Macro V04-00 Page 196, 


LINK_MON_ERR = Link MONITOR Error SEP- MONTOR.SRCJMONITOR.MAR; 1 
1FB9 67 1 SPUTMSG_S MSGVEC=PUTMSGVEC ; Put out the Linked message 
66 4 DO FCC 67 § MOVL “i, ; Use temp area for another ms 
04 A6 O0000000"8F D0 yece of Z MOVL #MNRS_CONT,4(R6) i eee which says ‘Continuing...’ 
1FD7? 6725 SPUTMSG_S MSGVEC=(R6) ; Put it out 
04 1FE6 6726 RET ; Return 


| 
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FREE_MEM = Free Virtual Memory Set Pi 83:39:82 MONTOR.SRCJMONITOR.MAR; 1 - ( | 
1FE7 67 -SBTTL FREE_MEM - Free Virtual M 
1FE? ef § - page vaste 
FEY ery as 
IEE? ; : FUNCTIONAL DESCRIPTION: 
1FE? 6734; This routine issues calls to LIBSFREE_VM to free up virtual 
1FE? 6735 ; memory gcquire by classes for FAO control strings an 
1FE7? 67 § 5 collection buffer blocks. Also, a special write buffer used 
1FE7? 6737 ; by the PROCESSES class is freed if present: also, the SYSTEM 
1FE7 67 8 ; class DATA arrays. No status code checking is done, since this 
1FE7 of : routine is in a cleanup path. 
1FE7 6740 ; 
1FE7? 6741 ; INPUTS: 
1FE?7 oreg 3 
th ta; ooo 
IEE? 6745 : IMPLICIT INPUTS: 
1FE7 or7$ : The CDBSL_FAOCTR, CDBSA_FAOCTR, CDBSL_BUFFERS and CDBSA_BUFFERS 
1FE? 6748 ; fields contain the Length and address, respectively, of memory 
re? ort? 3 blocks to be freed (for each class in this MONITOR request). 
1FE? 6751 ;: Additionally, PROC_WRI_BUFD is a quadword containing the Length 
ire? 0736 3 and address of the special write buffer for the PROCESSES class. 
1FE? 6754 ; Also, SYS_DATA_ADDR and SYS_DATA_LEN describe the address and length 
1FE7 6755 ; of the SYSTEM class DATA arrays. 
1FE7 6756 ; 
1FE7 6757 ; OUTPUTS: 
1FE7 6758 ; 
a tere 
IEE? 6761 : IMPLICIT OUTPUTS: 
4 34 eres : Memory is freed. Pointers to freed memory are cleared to 0. 
1FE? 6765 : ROUTINE VALUE: 
1FE7 9706 3 
at Steg: Noma 
1FE7 6769 : SIDE EFFECTS: 
1FE7 6770 ; 
1FE7 144 3 None 
1FE7 ore 3 
1FE7 6775 ;:-- 
1FE7 6774 
OOFC FE? 6775 .ENTRY FREE_MEM, “M<R2,R3,R4,R5,R6,R7> 
IFES 6779 
1FE9 6778 : First free up memory left over from a special 
1FE9 6779 ; write buffer used for recording PROCESSES records. 
IFES G78 
Goo00OTE "Er iE 4 9 of § itt gh ROCWAI BUF DSS : is there a buffer? 
OOOOOOIE'EF ODF FFI 3 4 PUSHAL L“PROC_WRI_BUFD+4 : Yes -- stack addr of buffer ptr 
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yoe-000 FREE_MEM = Free Virtual Memory . o7SEp =| oy 83: 3 3% ERONTOR. SRCIMONI TOR. MAR; 1 ” (99) 
QOOTA'EF DF FF? 6785 PUSHAL La Pagc WRI_BUFD ; Stack addr of buffer Length 
00000000 be FB FFD 67 § CALLS 2,G*LIBSFREE_VM : Free the buffer . 
000 bie'e D4 0 4 f CLRL feeGot WRI "BUFD® +4 : Clear address 
A 6789 ; 
0 : y : Check for SYSTEM class DATA arrays, and free them if present 
BO 
00000078' EF 05 O0A 6794 TSTL  SYS_DATA_ADDR ; SYSTEM DATA arrays here ? 
19 «#1 10 6795 EQL 10$ :; Branch if not 
0900007 7B°EF OF 1 0738 PUSHAL SYS_DATA_ADDR 3; Stack addr "et arrays ptr 
OOO7F'EF OF 1 79 PUSHAL SYS_DATA_LEN ; Stack addr of arrays length 
00000999 cr 2 FB 45 6798 ALLS #2,G*LIBSFREE_VM 3 Free the space 
O7B'EF D4 6799 CLRL. = SY$_ DATA_ADD : Clear address 
ae 
028 6 8 : Now Look only at the requested classes for this MONITOR request. 
; OR87 : Free up the FAO control string and the collection buffer block for each. 
028 6805 © 
B58 GAR 108: 
57 Q0000000'EF DO 20 8 6808 MOVL MRBPTR,R7 ; Load MRB pointer 
55 04 S ¢ eso 208 CLRL R5 3; Init starting bit position 
53 20 00 oR 6811 ‘ MOVL #32,R3 ; Init bit field size 
037 oats 3; NOTE -- must handle in 32-bit chunks 
a2. tS © tH ° Fe 30s MOVL R5,R2 : Init start position of next chunk 
54 32 A7 53 52 EA 203A 6815 ; FFS R2,R3,MRBSO_CLASSBITS(R7), R4 ; Search for next class number 
040 6 16 3 R4 contoine class no. if found 
OE 13 74 681 BEQL 40$ : Branch if none found this chunk 
1¢ 10 204 ett BSBB FREE_CLASS ; Free memory for this class 
53 52 CO 2044 681 ADDL R2,R3 ; Compute next starti ng 
52 54 01 C1 2047 6820 ADOL #1,R4,R2 3 eee position and field size 
53 52 C2 2048 6821 SUBL2 R2,R3 3 ee. for this chunk 
EA 11 Bek ? ¢ 608 BRB 30§ 3; Go search rest of chunk 
FFDC 55 20 0000°8F 3D 038 yt) : : ACBW #MAX_CLASS_NO,#32,R5,20$ ; Loop to process next chunk 
50  O0000000°EF 00 58 6826 MOVL NORMAL ,RO : Set normal status 
04 HY 6827 RET ; Return 
$3 8855 
80 68350 FREE_CLASS: ; Free class memor 
6831 3; NOTE -- R4& contains class number 
56 54 00000053 8F 3 6 6 § MULL3 #CDBSK theisne oR4 : Compute offset to desired CDB 
56 00000000'EF46 ° 6834 MOVAB CDBHEA Ad R6),R6- : Index to CDB address 
04 4g o§ 6835 TSTL COBSA_ FAOCTR(R6 : Is there a _ conaret string? 
2 1 73 «6 § BEQL ih 3; Branch 
ss eat 9 8 14 OF 75 6 MOVAL SYS_FAO_STR,RO ; Get addr of Oe esta SYSTEM FAO str 
0 04 Ag D 7C 6 g CMPL DBSA_FAOCTR(R6) RO ; Is this jt? 
1 13 ? BEQL $ a ies. don't “try to iy + 
04 AG ODF 40 PUSHAL CDBSA_FAOCTR(R6) Breck k addr of string p 
66 000005DC 8F D0 6841 MOVL  #FAOCTR_SIZE,COBSL_ siarsel ) ; Ensure whole o Pine is freed 
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SK Class + i gk nane $ i -SEP-1 13be 83: 3) ‘3 YRONTOR. SRCJMONI TOR.MAR; 1 . (100) Sy 
-SBTTL DISK_DISPNAM = DISK Class display name subroutine 3 
++ $$ 
$$ 
FUNCTIONAL DESCRIPTION: 33 
This subroutine fills an FAO tay a str stack with up to SS 
Longvords | required to display a single. element (disk) SS 
name. dress of an element ID entry is assed to this SS 
routine in a register; the address of the FAO stack is SS 
also passed in a register. s3 
CALLING SEQUENCE: 33 
Ss 
S$ 
¢ 
R3 = address of [ea tonguere FAO stack 
R6 = address of CDB 
R7 = address of CDX 
R10 = address of current element ID 
IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 


IMPLICIT OUTPUTS: 
The FAO parameter stack is filled with ee aon Longword 
parameter values as apretenr? (up to 10) to display a 
single element name. The number of Ald. is dotined 
+ a “a FAO control string defined for this homogeneous 

ass 

ROUTINE VALUE: 
None 

SIDE EFFECTS: 


JSB DISK_DISPNAM 
INPUTS: 
Alters RO. 


ee a oii c- 


o 
= VAX/VMS Perf Monit tilit 16-SEP-1984 01:59:24 VAX/VMS Macro V04-00 Page 171 
DISK DISPNAM = DISK flocs Gispley mane s S-SEP=1986 0250154 EMONYOR. CRETRONG TOR MAR: 1 (101) 
AE 6905 DISK_DISPNAM: : 
A Es 
AE 69 § : First determine whether we have the special wider name 
AS ob ; area available with the tabular (/ALL) statistics display. 
50  O0000000'EF »D0 AE e319 MOVL MRBPTR,RO 3; Get MRB pointer 
OA 43 AO 5B 0 § 691 BBS #MRBSV_MFSUM,MRBSW_FLAGS(RO),10$ ; Br if m.f. summary 
00 42 4 5} OBA gale ie FOBSB_ST(RG) MALL _STAT : atl gtastaneee requested ? 
4 91 CLRL RR : Indicate wide display area 
i 8 e317 108 BRB BS 3 eee and continue 
50 01 00 pcs e318 ath MOVL #1,R0 3; Indicate narrow display area 
32 48 AB «0O06~Stsé# C7 8 1 ; BBC #CDBSV_DISKAC, - ; Br if recorded without alloc class 
bee 9 : COBSL_FLAGS(R6) ,50$ D eaitels 
6A 95 20CC 83 TSTB (R10) ; Allocation class 0? 
= ww 433 6924 BEQL 50$ ; Br if so 
Sue 
: 29 ; : Process a disk name with allocation class 
9 e 
2C A? 25BA'CF ODE o09 §3 , MOVAL id Fete yt ee 3; FAO string with alloc class 
O55, RA Be 20D9 6988 MOVAL GRID | Goce Ua devia none aolekee ! 
° Py Vv ; 
88 Ag ih AA f a $3 : MOVZWL 5(R10),8(R3) 3 eee and unit number 
Oc Ad) = 4 OE 69 $ CLRL 12(R3) ; Assume wide display 
0450 €9 c8 69 BLBC RO,30$ :; Br so H 
0c Ad 0 =—(01~Ss«éD0 34 o 3 308: MOVL #1,12(R3) 3; Else stack a different value 
10 Ads 4 OED 6940 : CLRL 16(R3) ; Assume zero Length node name field S 
04 50 E€8 20F0 6941 BLBS RO,40$ : Br if narrow display area H 
10 AS «6(09”—Sts«é#0 oF one 0s MOVL #9,16(R3) 3; Stack len of node name field for wide H 
F7 6944 MOVAQ 7(R10),20(R3) ; Stack node name address 
sotandtcad $4 i re ts BRB DD_VOL 3 ee. and go stack volume name : 
S$ 
47: 
rE o34 3; Process a disk name with the node$device format. 3 
’ 5 
HBB sos ; 
2C A?) =«2598'CF OD FE $98 MOVAL W*DISK_FAO,CDXSA_DISPFAO(R7) ; FAO otrine without alloc class 3 
é3 D OD 104 336 MOVL WS (R3) ; Assume narrow display area : 
14 A 1 00 2107 $382 MOVL #1, 20(R3) geet ; 
0 € 1 6955 BLBS RO,60$ :; Br if narrow 3 
63 «(1 i) 1 9 MOVL #20, (R3) 3; Stack values for wide area H 
14 a3 D4 11} fs path CLRL =. 20(R3) Steorenatis $ 
114 69 : BBC #CDBSV_DISKAC, - ; Br if recorded without alloc class $s 
7a =o BP 2208 CDBSL_FLAGS (R64) ,80$ 200 : 
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ISPNAM = DISK Class display name s 5-SEP-1984 02:01:24 ([CMONTOR.S RCIM MONITOR.MAR; 1 (101) 
11 962 ;: 

113 e3es : Process a disk name with with zero allocation class 

119 6965 ° 

119 6366 MOVAQ BIRR? «aeRoe 3 Move node name ptr into FAO stack 

Vie 696 CLRL (R3) ; Assume zero dol oie field length 

1 e308 TSTB (R10) 3; See if node name exis 

124 38 BEQL 0$ ; Br not 

} 6 44! 708 MOVL #1,8(R3) 3; Adjust dollar-sign field Length 

120A 76 "  MOVAL 1¢R10) , 12(R3) ; Move in device name pointer 

12F 7 MOVZWL 5(R10),16(R3) 3 eee and unit number 

154 6974 RB DD_VOL ; Go stack volume name 
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33 
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DISK_DISPNAM = DISK Class display name s 5-SEP-1984 02:01:24 (CMONTOR.SRCIJMONITOR.MAR; 1 (102) 
1 976; 
1 g e377 3; Process a disk name recorded without allocation class. 
1 3f8 3; This is the revision level 0 format for the element ID. 
1 6979 ; It does not include an allocation class, and the fields 
1 22 0 ; are in positions different from those of Later revision 
1 981 ; levels. This code is also suitable for processing journal 
1 9 § 3; device names. 
1 985; 
1 984 
1 o 5 80S: 
04 A3. 6A TE 21 9 § MOVAQ (R10),4(R3) 3: Move node name ptr into FAO stack 
08 A3 pS 13A 88 CLRL 8(R3) ; Assume zero dol —? field length 
3 130 69 8 TSTB (R10) 3; See if node name exists 
bs 1 13F e3 BEQL 90$ 3; Br not 
08 A3 1 00 Vl 2200 908 MOVL #1,8(R3) ; Adjust dollar-sign field length 
OC AS 08 AA pe 145 2838 MOVAL 8(R10),12(R3) : Move in device name pointer 
10 a3 OC AA 3C 14 6993 MOVZWL 12(R105,16(R3) t se. and unit number 
14F 6995 DD_VOL: 
18 AS D4 214F e443 CLRL 24(R3) ; Assume no volume name 
1C AS FE AF DO 138 699 MOVL - -28(R3) 3 «eee (use any accessible address) 
09 48 A6 «0(07~sé€E; 1 157 6998 BC #EDBSV_DISKVN, - ; Br if volume name not available 
15¢ $999 cCOBSL FLAGS(R6),DD_RSB : .... 
8 AS OC 0 215C 7000 MOVL #12,25(R3) 3; Stack Length of vol name 
1C AS) OF AA 9E 169 44d MOVAB 15(R10),28(R3) 3... and its address 
165 1508 DD_RSB: 
05 2165 7004 RSB ; Return to caller 
166 7005 
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-SBTTL SCS_DISPNAM = SCS Class display name subroutine 
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FUNCTIONAL DESCRIPTION: 
This subroutine fills an FAO tgs 4 stack with 3 to 
10 Longuords required to display a single element (SCS) 
name. The address of an element ID oqtty is passed to this 
routine in a register; the address of the FAO stack is 
also passed in a register. 

CALLING SEQUENCE: 
JSB SCS_DISPNAM 

INPUTS: 


R3_ = address of 10-longword FAO stack 
R10 = address of current element ID 


IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
The FAO parameter stack is filled with as many longword 
parameter values as necessary (up to 10) to display a 


single element name. The number of parameters is defined 
ny FAO control string defined for this homogeneous 
C 
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Se 
ROUTINE VALUE: 
None 
SIDE EFFECTS: 
None 
SCS_DISPNAM: : 
MOVAQ (R10), (R3) 3; Move node name ptr into FAO stack 
TSTB (R10) 3; Is there a node name? 
BNEQ 10$ :; Yes, return 
108 MOVAB UNKNOWN_NODE, (R3) ; No, make it ‘Unknown Node"’ 
: RSB ; Return to caller 
END 
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, 4 v04-00 Page 178 
soniven 18954 MONTOR. SRCSMON] TOR MAR; 1 (103) 
mere ines MFS$B_DATA_COLS = 0000005¢ 
rt Ni = SRR REC ELE = 9990085 
MBPSA-PCRAK : 0 gna MF SSL -LWORDS = Ronega se 

PSA-PCHIN Robey s MFSSL-STATSBUF = RopngnE 
MBPSA-PCSTATS = Ronee MF SSO-CLASSBITS = BopggRo8 

si = B88884 mrseactuo tne" = 9990008 
MBPSA_ “ - = 0 
RSE ost = Seanutt nr Ses -BEGIMNG = seauuee 
MBPSA_STATS = 00000014 MESSS TENDING = 90000008 
MBPSK-S17E = FRR bEe MESSS-MFS a ittiets 
MBPSS_MBP = $000001¢ MF S$U5CLASSCT esses. a ae 
MBPS$S _MBP = 0000000C MF SPTR | = 00000003 
MBPS$S_MBP = $9000006 MIN STA eeenenee xX 03 
MBP = 00000000 aa A aeeeeeee = X 03 
BP = 00000000 RNRS~1TANOTDEF wem~me 
RICA = 00000004 FINRS = QOCEI09A G 
MCASA_INPUT_PTR = 0000001 RRS -OPENIN exseeeee X03 
Rea aoe : Bsse Baer = Hist 
MCASBULASTC = 0000003 MNR~CLS$K-HSIZE = 83000000 
MCASK_SIZE = 0000000C MNR-CLS$Q_STAMP = 90000000 
MCASL_COLLCNT = 00000034 MNR-CLS$S_CLASS_HDR = 0000000F 
MCASL~CONSEC_REC = Songs MNR~CLS$S_FILLER = BONN O ORE 
MCASL_DISPCNT = 00000000 MNR-CLS$S_FLAGS = 00000008 
MCASL_INPUT LEN = 00000008 MNRCLS$S_STAMP = 00000000 
MCASL_INTTICKS = 00000014 MNR_CLS$V_CONT = 00000001 
MCASL_INT i. 18 MNR_CLSS$V_FILLE = 00000001 
Ra at te : HBSsie ma i tEihs : HSS 
MEARS CURR TIRE : e444 RNR“HORSKCLASSBITS = 09900073 
MCASS~FILLER = 0000000 RNR~HDRSK_RAXCOML EN = 2000s 
MCASS-FLAGS = 90000008 MNR~HDRSK~REVLEVEL = 20000083 
MCASS-~LASTCOLL = 0000003A MNR~HDRSK~SIZE = Bonenon? 
MCASS_MCA = 00000000 BINRHDRSLIFLAGS | = 00000015 
MCASV~ENTRY = 00000003 MNR~HORSL~ INTERVAL = 90000029 
MCASV~EOF 06 MNR-HDRSL-RECCT me 4 t 
REABY-EtA SER : Hossa ReGEHeut, § =: BB 
MCASV~ FUTURE = 00000005 MNR~HOR$SQ~BEGINNING = BonunnNs 
MCASV_GRAPHICS = 0000000 MNR-HDR$Q_END ING : 0 
MCASV~MUL TFN : 9 MNR-HDR$S BEGINNING = Pongengs 
MCASV-REFRESH . 0900008 MNR~HDRSS_CLASSBITS = 00000010 
MCASV7S_ TOP_DISP : 2099 007 MNR~HDRSS~ COMMENT = 00000 
MCASV_TOP DTS = 000 3% MNR~HDR$S "ENDING = 00000108 
MCASV-VIDEO ~ MNR_HORSS_FILE_HDR = 00000020 
pease Funes : Bs RMt-WBRES-FLAgS : HOSsih 
eteee * - - 

~'g Bootes ® 03 NNRTHDRSS“REVOCL SBITS = 9000001 
ms = $590088 Rarigege-TveE® = 9988888 
AF SSA~STATSBUF ~ 09 NNRHORST- COMMENT = 
RY SSA SUMMARY = BO300084 RNRMORSTCLEVEL = §0000088 
MESSB~CUR COL = 00000058 
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ae table : 0 0 ROVETCLASS UALS 18 . 0 | 
na tary CINE : Ha ale «HS 
ma tena : Hasse me = He 
RMR-HORBL RESERVED : Sass RRESA-DISPLAT : 6 $8 34 | 
~PROSB_PRI~ ® at ae ba = 9000 
mae -PROBE- DS HE : Sie RRBEATSURRARY = ones 
MNR _ - = 000000 MRBSB_ 000014 
Fee aon oee REUDESITE 0000038 MRBSK “SIZE = $0000016 
MNR~PROSK_REV osite = 4 : MRBSL FLUSH = 444 $4 
BNR ~PROSK_REVIDS = 000000 MRBSLCINTERVAL = 90000018 
RNR-PROSL -BIOCNT = 200000¢8 MRBSL-VIEWING TIM = 90000400 
MNR_PROSL_CPUT : = 4444 > MRBSM"ALL CLASS = 90001000 
WNR-PROS “EUR = 90000038 MRBSM~BY RODE = 90000001 
MNR_PROSL_EF WM = 0000000 MRBSM DISPLAY ; = 20000080 
MNR~PROSL EPID = 90000027 MRBSM_DISP_TO FIL me 454 9h 44 
RNR PROSE PAREFLTS = 00000004 RBSM-DIS CL = 90000040 
R_PROSL _PAGEFL = 4 444 43 MRBSMINDEFEND = 00000 a 
RNR ~PROSL _PCTINI = Boo SOT E MRBSM_INP CL_REQ = So eanoS 
MNR_PROSL_PCTRE . 96000006 MRBSM_MF SOM - 1805000 
RNR _PROSL_STS = 90000008 MRBSM_PLAYBACK = 90004000 
FAR PROED “THANE = 00000010 MRBSM-PROC REQ = 90000080 
en PSO LNA = 90000038 MRBSM_RECORD = 90000004 
MNR_PROSS _ SS_CLASS ; §0000008 MRBSM_REC_CL_REQ = 44 00 
INR“PROSS “PROCESS. PRE = Sit ih MRBSM_SUMAARY = 990 3 
RNR-PROSU-GPoCAT = 90000010 MRBSM~SUM_CL_REQ = 9000008 
MNR_PROSW_GPG NT = 4 4 49h MRBSM SYSCL s HEE 
MNR_PROSW_PPGC - $0000008 MRBS$O_CLASSBITS = 000 0008 
MNR_PROSW_STAT 5 = 0 000000 MRBS$Q_BEGINNING = Hf 
R-SYISB_MPCPU = 00 ~BES! = 0000 
Be Si -iC Scien = Sent mest UMN ee 
RNR~SVISK_CPUTYPE = 90000006 MRBSS~ENDIN = 9000008 
MNR_SY1SK_MPWH “4 = 0000002A MRBS$S_FLAGS = 000 OOA 
=SYISKINODE = 000 “mR = 00000 
PM STIS ncn a RRBBY ALL CLASS : HERS 
% 7 E = 0000 MRBSV_ = 000000 
a SyISCAPUMIL IM 00000 MRBSV_DISPLAY é 8 
NRSV ISL _BPUHIL I = 90000008 MRBSV-DISP_TO FIL = 00000008 
eee ise booting = 000000 MRBSV-DIS_CL_REG = 00000006 
mown $1 188-B00TT! = 9000000 ARBSV-FALCER = 90900004 
PR SVISS_FILLE 800001 MRBSV_INDEFEND = 00 8 0 
NRSV 12S NODENAME = 0000002A MRBSV-INP_CL_REQ = 00000008 
Wennevisecere tare = 00000008 MRBSV-RF SOM = 9000000 
MNR7SYISS_TYP MANE : MRBSV-PROC_REQ . ? 
NRSV I$T-NODENAM “ ; MRBEV-RECORD 0900 
RNR S¥1$V~CLUSRE : 9 MRBSV-REC. CL_REQ = 99000008 
MNR-SYISV~FILL ED1 s Bh 01 MRBSV SUMMARY — 
Se dace "Senn yg RRR : SH 
CLSNO poceees 6 MRESU-FLAGS 
RODES- COUNT O000)EBG RG mReSW. 
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MRBPTR eeeeeeee = §=6X ; QUALSA_ALL = & 
MWAITLIST eereeeee § 6X QUALSA_AVE = 4 
NAMESTR 0 RG 1 QUALSA_BEG = 4 
NAME _COL RG 1 QUALSA_BY_NODE = 4 
NAME ~COL_BAR = G QUALSA-CLASS : SC 
NAME _COL_MF SUM 5 G QUALSA_COMM = 4C 
N COL = 000 7 © QUALSA_CPU = 8 AC 
NEWXPOS : 089 R 01 QUALSA_CUR = 4 gf 
NO = 00000 G QUALSA_DISP = 00 3 4 
NORMAL etrereer =X 03 QUAL SA~END = 0000000C 
NUMB_ONLY eeeereee =X QUALSA_FLUSH = 0000001C 
OTHER _VID = 68 0003 QUALSA_INP = Be bet 
Tost 1A03 RG 01 QUALSA“INT = 4 
OUTOSC_SIZE = 000006A4 QUALSA_ITEM = BoB NORE 
PCBSV_RES = 00000000 QUALSA_MAX = 00000084 
PCENT-STR 000256C RG 01 QUALSA_MIN = 9990007¢ 
CTEN OOOOEGF R 03 QUALSA_PCENT = 44444 
PC_BUFS = 00000004 6G UAL$SA_REC = 0000003C 
PERF TABLE eeeeneee§ =X 03 QUAL$A_SUMM = 00000044 
PLAY_STR 9900 34 01 QUALSA~TOPB = 0000009C 
PREV_PD 000 oh R 01 QUALS$A_TOPC = 0000008C 
PRINT_SCREEN 0000168D 03 QUALS$A_TOPD = 00000094 
PROCDISPS = 00000005 QUAL$SA_TOPF = 000000A4 
PROCESS CLASS = 0000000 QUALSA_VIEW = 00000024 
PROCHEAD_STR 00002403 RG 01 QUALSL_ALL = 00000060 
PROCS_CLSNO eeeeeeee§ =X 03 QUALSL_AVE = 00000070 
PROCS PER_REC 00000016 R 01 QUALSL_ = 00000000 
PROC_ = 00000048 QUALSL_BY_NODE = 00000050 
PROC_NRES_STR 00002676 R 01 QUALSL-CLASS = 00000058 
PROC_RES STR 00002631 R 01 QUALSL_COMM = 00000048 
PROC_SETOP_STR 00002616 R 01 QUALSL_CPU = 000000A8 
PROC" WRI_BOF OO00001A R 01 QUALSL_CUR = 4 
PROMPT STR QOOOO0ES RG 01 QUALSL_DISP = 00000030 
PRO_CLASS_PRE = Bponveee QUALSL_END = Soon ontS 
PTS_ESC 00001BC5 R 03 QUALSL_FLUSH = 0000001 
PTS_ESCF 00001C : R 03 QUALSL_ INP = 00000028 
PTS_ESC 00001C35 R 03 QUALSL_INT = 00000010 
PTS_ESCH SES | ep 03 QUALSL_ITEM = 00000088 
PTS_ESCJ Ben cA a 03 QUALSL_MAX = sits 
PTS_ESCK 0001C09 R 03 QUALSL_MI = 0000007 
PTS_ESCL BRR TBE R 03 QUALSL_PCENT = BO nb RS 
PTS_ESCR 000 1606 R 03 QUALSL_ = 0000003 
PTS_ESCU 0001BE7 R 0 QUALSL_SUMM = 00000040 
PTS_ESCY 1866 R 8 QUALSL_TOPB = BOO OO 
PTS_RET 1 R QUALSL_TOPC = 0000008 
PTS STAT 8D R 01 QUALSL_TOPD = 00000090 
PUTASGSIZE = 00 1A QUALSL_TOPF = 88 ee 
PUTMSGVEC 41 R 01 QUALSL_VIEW = 0000002 
PUTSCRARG 718 R 01 QUAL$S_QUALIFIER_DESC = ta 
PUTS_ALTSET = 8 QUALIFTER_DESC = 00 00 
PUTS_REGSET = READ_ INPUT eeeteeee 03 
PuT_ESC_SEQ 0001C7B R 3 REC_STR 00 oe E5 R 01 
PUT_TO_SCREEN 4928 RG REG 000012C1 R 83 
QEZ"RET 469 R REGSET aeeeeeee = X 0 
L 4 § R REG_BUFS = O08 G 
QUAB_EQ_0 455 RG REG_PROC = ! 0 
QUAD_LT_QUAD 0000436 RG REG_SET 11. R 01 
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More ee 188d b2:b1134 EMONTOR 
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! Psect synopsis ! 


to cen eos e mc eeoee st 


PSECT name Allocation PSECT No. Attributes 
- ABS . 0 000 ( 159°} 0 ¢ 9} NOPIC USR CON~ ABS LCL NOSHR NOEXE NORD 
MONDATA (10153.) 1 ¢ -) NOPIC USR CON” REL LCL NOSHR NOEXE RD 
SABSS 4 900 ( asee') ¢ ( §-} NOPIC USR CON ABS LCL NOSHR- EXE 
SSMONCODE ( 8565.) ( -) NOPIC USR CON” REL LCL NOSHR’ EXE 
peter eso nec eanan coo sean wee} 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 48 0:00:00.13 00:00: 1-98 
ponnene processing 161 He 00:00:05.54 
1015 0:00:41.65 Ba: 1:30.83 
Synbol table sort mm 00:00:16: bs Bh 30 
Syabot table output 2 6; 0:00. : 00:00: 1.81 
peect sygepets cutout 0 88:80:06" B28: 8-8 
ross- nce outpu :00:00. :00:00. 
Assembler run totals 1675 8001 os .99 80:09; 98:99 


The working set press was 3300 pages. 

259219 bytes (493 pages) of virtual memory were used to buffer the intermediate 

There were 180 pages of symbol table space on ecese to hold 3159 non-local and 
source lines were read in Pass 1, producin object records in Pass 2. 


67 pages of virtual memory were used to define 9," macros. 


ode. 
94 local symbols. 
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! ; Macro _tibrary statistics ! 


SSeS Bee ROEM MoeOE BoM me } 


Macros defined 


Macro Library name 


$255$DUA28: CMONTOR.OBJ JMONLIB.MLB; 1 11 
"$255$DUA28: (SYS.0BJJLIB.MLB; 8 
~$255$DUAZ8: Syst IBISTARLET. ALB; 2 3 

TOTALS (all Libraries) 51 


3099 GETS were required to define 51 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MONI TOR/OBJ=0BJ$:MONITOR MSRC$:MONI TOR/UPDATE=(ENHS$: MONI TOR) +EXECMLS$/L1B+LIB$:MONLIB/LIB 
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